Шаблон надстройки вылетает Word только в Windows 10 / Office 365 - PullRequest
Новая
       37

Шаблон надстройки вылетает Word только в Windows 10 / Office 365

0 голосов
/ 12 октября 2018

Windows 8 Machine (работает): Microsoft Office Professional Plus 2013 Windows 10 Machine (не работает): Microsoft Office 365

Шаблон (файл .dotm) помещается в папку «Автозагрузка» для Word.Когда я запускаю Word, у меня появляется пустой экран.Нажатие на «Файл» приводит к немедленному завершению Word без сообщения об ошибкеУ надстройки есть модуль MainModule и класс WordApp.AutoExec запускает цикл, который вызывает фиктивную функцию.

MainModule: 

'event processor class instance
 Dim myWordApp As WordApp
 Sub Register_Event_Handler()
   Set myWordApp.appWord = Word.Application
 End Sub

 'gets executed automatically
  Sub AutoExec()
    Set myWordApp = New WordApp
    Call MainProgram
  End Sub

Sub MainProgram()
   Register_Event_Handler
   Do While True
     testFunction
     DoEvents
     Loop
End Sub
'dummy function gets called in loop
Private Sub testFunction()
   Dim i As Integer
   i = 0
   i = i + 1
End Sub

Класс WordApp: 

Public WithEvents appWord As Word.Application
'fires upon closing word
Private Sub appWord_DocumentBeforeClose(ByVal Doc As Document, Cancel As 
   Boolean)
    MsgBox "Closing"
End Sub
...