Проверка орфографии и сохранение по запросу

Максим задал вопрос:

Вот пример мини-программы (состоит из трех отдельных макросов). Подключите их к шаблону Normal.dotx и при сохранении, или при закрытии документа будет выводиться запрос.

Sub FileSave()
  Call DoYouWantToCheckGrammar
  If ActiveDocument.Saved = False Then ActiveDocument.Save
End Sub

Sub AutoClose()
  Call DoYouWantToCheckGrammar
End Sub

Sub DoYouWantToCheckGrammar()
  Dim Response As String
  Response = MsgBox("Проверить грамматику в документе?", 1 + 32, "Запрос")
  If Response = 1 Then ActiveDocument.CheckGrammar
End Sub