Private Sub Document_Close()

Application.Run "MyProject.MyModule.MyProcedure" '- запуск формы из шаблона
Далее выполняется другой код и потом закрытие документа...

End Sub

Private Sub Document_Close()
Dim GetFormResult As Boolean
  GetFormResult = Application.Run(МойПроект & ".Модуль.Процедура")
  далее условие для GetFormResult... 'всегда возвращается False из шаблона
End Sub

всегда возвращается False из шаблона

Sub Контроль()
  Dim strDocName As String
  Dim objWordDoc As Word.Document

  strDocName = ActiveDocument.Name
  Set objWordDoc = Documents.Item(strDocName)
  objWordDoc.Activate
  ...
  frmMonitoring.Show
  If GetResult = True Then 'если была нажата кнопка "Отмена" или "Х" на форме
'Application.Run - если делать запуск на процедуру в документе,
'но не получается запускать - не понимаю как указать строку "MacroName" в документе,
'если он не поддерживает хранение макросов
    Set objWordDoc = Nothing
    Exit Sub
  End If
  If objWordDoc.Saved = False Then
    objWordDoc.Save
  End If

  Set objWordDoc = Nothing
End Sub

  If GetResult = True Then 'если была нажата кнопка "Отмена" или "Х" на форме
'Application.Run - если делать запуск на процедуру в документе,
'но не получается запускать - не понимаю как указать строку "MacroName" в документе,
'если он не поддерживает хранение макросов
    Set objWordDoc = Nothing
    Exit Sub
  End If

Set App = Application

Private Sub Document_Open()
  Set App = Application
End Sub

Set D.AppWord = Application 'вот на этой строке получается косяк, если запускать повторно.

Private Sub АвтоЗапускШаблона()
...
Documents.Add (строкаПолныйПуть)
...
End Sub