Как запускать макрос при сохранении word документа?

Это не получится так как  ctrl+s зарезервировано под сохранение файла и данные которые в макросе во время выполнения не сохраняться , можно попробовать объект Который при выполнении события
Private Sub Document_Close()
   ActiveDocument.Save
   [Здесь код сохранения при закрытии Документа]
' Тогда --> Если Объект открыт остановить программу-->Если Объект закрыт, закрыть Документ
End Sub

Данный код работает только на кнопку "сохранить", а мне так же нужно, что бы он работал на закрытие документа нажатием на крестик и нажатием на кнопку "сохранить как".
Как совместить Sub AutoClose() и Sub FileSave() в одном макросе и можно ли добавить возможность срабатывания макроса на "сохранить как".

Что-то типа этого:

Sub FileSaveAs()
    With Application.Dialogs(Word.wdDialogFileSaveAs)
        If .Show = -1 Then ThisDocument.SaveAs FileName:=.Name
    End With
    ' ваш код
End Sub

Есть еще события Application...