Application Level

Application Level Events

You must write your own event handler routines when you want to capture any of the Application events since these events are not enabled by default.
This can be done using the WithEvents keyword in a class module.

Create a new class module called "ApplicationEventClass"
Before you can use them you must create a new class module and declare an object of type Application with events.

Public WithEvents WordAppEvents As Application 

After the new object has been declared with events, it appears in the Object box in the class module (top left).
When you select the new object in the Object box, the valid events for that object are listed in the Procedure box (top right).

However before the event handlers will run you must connect the declared object in the class module to the Application object.
You can do this from any module by using the following declaration, where "ApplicationEventsClass" is the name of the class module you created to enable the events

Public ApplicationClass As New ApplicationEventClass 

After you have created the object variable you can set the ExcelAppEvents object of the EventClass to equal the Microsoft Excel application object.

Set ApplicationClass.ExcelAppEvents = Application 

Once this has been assigned the events in the EventsClass will run whenever the events occur.

Event Procedures

Private Sub WordAppEvents_DocumentBeforeClose(ByVal Doc As Document, _ 
                                              Cancel As Boolean) 
End Sub 

Private Sub WordAppEvents_DocumentBeforePrint(ByVal Doc As Document, _ 
                                              Cancel As Boolean) 
End Sub 

Private Sub WordAppEvents_DocumentBeforeSave(ByVal Doc As Document, _ 
                                             SaveAsUI As Boolean, _ 
                                             Cancel As Boolean) 
End Sub 

Private Sub WordAppEvents_DocumentChange() 
End Sub 

Private Sub WordAppEvents_DocumentOpen(ByVal Doc As Document) 
End Sub 

Private Sub WordAppEvents_DocumentSync(ByVal Doc As Document, _ 
                                       ByVal SyncEventType As Office.MsoSyncEventType) 
End Sub 

Private Sub WordAppEvents_EPostageInsert(ByVal Doc As Document) 

End Sub 

Private Sub WordAppEvents_EPostageInsertEx(ByVal Doc As Document, _ 
                                           ByVal cpDeliveryAddrStart As Long, _ 
                                           ByVal cpDeliveryAddrEnd As Long, _ 
                                           ByVal cpReturnAddrStart As Long, _ 
                                           ByVal cpReturnAddrEnd As Long, _ 
                                           ByVal xaWidth As Long, _ 
                                           ByVal yaHeight As Long, _ 
                                           ByVal bstrPrinterName As String, _ 
                                           ByVal bstrPaperFeed As String, _ 
                                           ByVal fPrint As Boolean, _ 
                                           fCancel As Boolean) 
End Sub 

Private Sub WordAppEvents_EPostagePropertyDialog(ByVal Doc As Document) 
End Sub 

Private Sub WordAppEvents_MailMergeAfterMerge(ByVal Doc As Document, _ 
                                              ByVal DocResult As Document) 
End Sub 

Private Sub WordAppEvents_MailMergeAfterRecordMerge(ByVal Doc As Document) 

End Sub 

Private Sub WordAppEvents_MailMergeBeforeMerge(ByVal Doc As Document, _ 
                                               ByVal StartRecord As Long, _ 
                                               ByVal EndRecord As Long, _ 
                                               Cancel As Boolean) 
End Sub 

Private Sub WordAppEvents_MailMergeBeforeRecordMerge(ByVal Doc As Document, _ 
                                                     Cancel As Boolean) 
End Sub 

Private Sub WordAppEvents_MailMergeDataSourceLoad(ByVal Doc As Document) 
End Sub 

Private Sub WordAppEvents_MailMergeDataSourceValidate(ByVal Doc As Document, _ 
                                                      Handled As Boolean) 
End Sub 

Private Sub WordAppEvents_MailMergeWizardSendToCustom(ByVal Doc As Document) 
End Sub 

Private Sub WordAppEvents_MailMergeWizardStateChange(ByVal Doc As Document, _ 
                                                     FromState As Long, _ 
                                                     ToState As Long, _ 
                                                     Handled As Boolean) 
End Sub 

Private Sub WordAppEvents_NewDocument(ByVal Doc As Document) 
End Sub 

Private Sub WordAppEvents_Quit() 
End Sub 

Private Sub WordAppEvents_WindowActivate(ByVal Doc As Document, _ 
                                         ByVal Wn As Window) 
End Sub 

Private Sub WordAppEvents_WindowBeforeDoubleClick(ByVal Sel As Selection, _ 
                                                  Cancel As Boolean) 
End Sub 

Private Sub WordAppEvents_WindowBeforeRightClick(ByVal Sel As Selection, _ 
                                                 Cancel As Boolean) 
End Sub 

Private Sub WordAppEvents_WindowDeactivate(ByVal Doc As Document, _ 
                                           ByVal Wn As Window) 
End Sub 

Private Sub WordAppEvents_WindowSelectionChange(ByVal Sel As Selection) 
End Sub 

Private Sub WordAppEvents_WindowSize(ByVal Doc As Document, _ 
                                     ByVal Wn As Window) 
End Sub 

Private Sub WordAppEvents_XMLSelectionChange(ByVal Sel As Selection, _ 
                                             ByVal OldXMLNode As XMLNode, _ 
                                             ByVal NewXMLNode As XMLNode, _ 
                                             Reason As Long) 
End Sub 

This is raised when the selected xml element changes in a document with XML mappings
The new selection object is passed to this event.
It also passes the xmlnode object that was selected previously and the xmlnode that is now selected
It also passes a reason for the change in the shape of an enumeration - wdXMLSelectionChange.wdXMLSelectionChangeReasonDelete | ReasonInsert | ReasonMove

Private Sub WordAppEvents_XMLValidationError(ByVal XMLNode As XMLNode) 
End Sub 

This is raised when the xml in the document is not valid when compared to the schema associated with the document.
The node object corresponding to the invalid element is passed as a parameter.