Переопределить Document_New() в Office 2010 от VBA

Question

Я пишу код VBA (в Excel), чтобы автоматически создавать отчеты на работе. Эти отчеты должны иметь определенный формат, который легко доступен через шаблоны нашей компании. Это все в MS Office 2010.

Однако все эти шаблоны имеют Document_New() подписчиков, что искроет какой-то VBA-код, который мне не нужен, и, к сожалению, нет прямого доступа (правила компании, ад да !).

Есть ли способ переопределить макрос Document_New()? Сейчас мой VBA код для открытия документа, в котором искры Document_New() макро, заключается в следующем:

Sub GenerateReport() 
    Dim WordApp As Object 
    Set WordApp = CreateObject("Word.Application") 

    WordApp.Documents.Add Template:="Letter.dot"  ' the "error" is produced at this lie 

    Dim SaveStr As String 
    SaveStr = "KommRapp-" & Date & ".docx" 
    WordApp.ActiveDocument.SaveAs SaveStr 
End Sub 

Answer 1

попробовать что-то вроде:

Sub OpenWordDocAndBlockMacros() 

    Dim WordApp As Object 
    Set WordApp = CreateObject("Word.Application") 
    'Just to see whats happening 
    WordApp.Visible = True 

    Dim InitialSecurityAutoSetting As MsoAutomationSecurity 
    'Save Automations Security Setting 
    SecurityAutoSetting = WordApp.Application.AutomationSecurity 
    WordApp.Application.AutomationSecurity = msoAutomationSecurityForceDisable 

    WordApp.Documents.Add Template:=" Place Template file path here" 


    'Do some stuff with the template 


End Sub 

Я проверил его, используя Excel VBA, чтобы открыть Word.dotm, который имеет Sub под названием Document_New в модуле ThisDocument, и он сработал.