DisableAutoMacros i VBA Excel, undgå auto macro
HejJeg har et problem med at disable macroer i nogle word dokumenter jeg åbner via VBA i excel.
Jeg har overvejet at åbne dokumentet via Shell() men kan så ikke lige få et handle til dokumentet og kan derfor ikke foretage mine ændringer.
Jeg bruger følgende kode:
Public wrdApp As Word.Application
Public WordWasNotRunning As Boolean
Set wrdApp = GetObject(, "Word.Application")
If Err Then
Set wrdApp = CreateObject("Word.Application")
WordWasNotRunning = True
End If
wrdApp.WordBasic.DisableAutoMacros 1
' det giver en fejl a.la "member not found"
Set wrdDoc = wrdApp.Documents.Open(DocName)
With wrdDoc
' Her skal jeg lave nogle ændringer i dokumenterne.
.Save
.AttachedTemplate.Saved = True
.Close ' close the document
End With
If WordWasNotRunning Then
wrdApp.Quit
End If
Set wrdApp = Nothing
Gør jeg noget forkert med det WordBasic objekt?
