События для объекта Word.Application

Выбор трёх любых событий остаётся за Вами ...

MS Word 97
Private Sub object_DocumentChange()
Private Sub object_Quit()

MS Word 2000
Private Sub object_DocumentBeforeClose(ByVal Doc As Document, ByVal Cancel As Boolean)
Private Sub object_DocumentBeforePrint(ByVal Doc As Document, ByVal Cancel As Boolean)
Private Sub object_DocumentBeforeSave(ByVal Doc As Document, ByVal SaveAsUI As Boolean, ByVal Cancel As Boolean)
Private Sub object_DocumentChange()
Private Sub object_DocumentOpen(ByVal Doc As Document)
Private Sub object_NewDocument(ByVal Doc As Document)
Private Sub object_Quit()
Private Sub object_WindowActivate(ByVal Doc As Word.Document, ByVal Wn As Word.Window)
Private Sub object_WindowBeforeDoubleClick(ByVal Sel As Selection, ByVal Cancel As Boolean)
Private Sub object_WindowBeforeRightClick(ByVal Sel As Selection, ByVal Cancel As Boolean)
Private Sub object_WindowDeactivate(ByVal Doc As Word.Document, ByVal Wn As Word.Window)
Private Sub object_WindowSelectionChange(ByVal Sel As Selection)