14. januar 2009 - 11:13
Der er
1 kommentar
DisableAutoMacros i VBA Excel, undgå auto macro
Hej Jeg 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?
Annonceindlæg fra Cognizant
AI er ikke problemet. Eksekvering er.
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
14. januar 2009 - 12:06
#1
Solved by using 'save setting secAutomation = wrdApp.Application.AutomationSecurity wrdApp.Application.AutomationSecurity = msoAutomationSecurityForceDisable ....... 'restore setting wrdApp.Application.AutomationSecurity = secAutomationSolved by using 'save setting secAutomation = wrdApp.Application.AutomationSecurity wrdApp.Application.AutomationSecurity = msoAutomationSecurityForceDisable ....... 'restore setting wrdApp.Application.AutomationSecurity = secAutomationSolved by using 'save setting secAutomation = wrdApp.Application.AutomationSecurity wrdApp.Application.AutomationSecurity = msoAutomationSecurityForceDisable ....... 'restore setting wrdApp.Application.AutomationSecurity = secAutomation