vba word regstry editor

[leumruk]

Hi,
Is it possible to do with the action specified in the macro?
Code:

Windows Registry Editor Version 5.00 
[HKEY_CLASSES_ROOT\Word.Document.8] 
@="Microsoft Word Document" 
"EditFlags"=dword:00010000
"BrowserFlags"=dword:00000008
Manual is the expression.

http://support.microsoft.com/kb/254918

 

[leumruk]

I want the job without the picture.

 

[Macropod]

For registry editing in vba, see: http://vba-corner.livejournal.com/3054.html

 

[leumruk]

For registry editing in vba, see: http://vba-corner.livejournal.com/3054.html

Hi.

I could not. Would you please write to me?

I want the job without the picture.

 

[Macropod]

The required code is under the heading "Saving a Registry key:" at the link I gave you.

I'm not about to test the code on my own system, as I don't want to change it. With that caveat, and the warning at the link I posted, you might try:

Sub IE_Open_Word()
Dim myWS As Object
Const i_RegKey As String = "HKEY_CLASSES_ROOT\Word.Picture.8"
Const i_Value As String = "BrowserFlags"
Const i_Type As String = "00000008"

  'access Windows scripting
  Set myWS = CreateObject("WScript.Shell")
  'write registry key
  myWS.RegWrite i_RegKey, i_Value, i_Type

End Sub

I also question the need for such code, as the MS website shows how to do this manually and it should only ever need to be done once.

 

[leumruk]

"Run time error 5"

I have an error in the code. How to be a problem.

 

[leumruk]

I found a solution. Approval is not better.

Sub Reg_Ayari()
bir = "Windows Registry Editor Version 5.00"
iki = "[HKEY_CLASSES_ROOT\Word.Document.8]"
Uc = "@=" & """Microsoft Word Document"""
dort = """EditFlags""" & "=dword:00000000" '"=dword:00010000"
bes = """BrowserFlags""" & "=dword:00000000" '"=dword:00000008"
yol = ThisWorkbook.Path & "\"
Ad = "rgty.reg"
  Open yol & Ad For Output As #1
        Print #1, bir
        Print #1, iki
        Print #1, Uc
        Print #1, dort
        Print #1, bes
  Close #1
  CreateObject("Shell.Application").Open yol & Ad
End Sub