HKEY CURRENT USER - open in MODI

[leemac83]

Hi,

Does anyone know the code to change a HKEY for the Document Image Writer? I need to set the "OpenInMODI" to 0, which will stop the Image window opening, then need to set it back to 1, which will show the image after my Macro has finished.
I have been looking how to change the registerykey, i know what I need but am unsure how to put this into a macro. The HKEY reg is below.

HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\MODI\MDIWriter", "OpenInMODI", 0, REG_DWORD

 

[Ivan F Moala]

something like ...... NB: youe key is diff in MDIWriter ??

Are you sure it is NOT MDI Writer

Option Explicit


Const strKey As String = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\MODI\MDI Writer\OpenInMODI"
Const strType As String = "REG_DWORD"
Const dVal = 0

Sub ChangeXlUndoHistory()
Dim objWSH As Object

Set objWSH = CreateObject("WScript.Shell")

objWSH.RegWrite strKey, dVal, strType

Set objWSH = Nothing

MsgBox ReadRegEdit(strKey)

End Sub


'// To Read a Key
Function ReadRegEdit(key As String)
    Dim Ws, Tmp
    
    Set Ws = CreateObject("WScript.Shell")
    Tmp = Ws.RegRead(key)

    If Tmp = "" Then
        ReadRegEdit = ""
    Else
        ReadRegEdit = Tmp
    End If

    Set Ws = Nothing

End Function