Word Application事件

Private WithEvents Application As Word.Application

Private Sub Application_DocumentBeforeClose(ByVal Doc As Word.Document, Cancel As Boolean)

End Sub

Private Sub Application_DocumentBeforePrint(ByVal Doc As Word.Document, Cancel As Boolean)

End Sub

Private Sub Application_DocumentBeforeSave(ByVal Doc As Word.Document, SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Private Sub Application_DocumentChange()

End Sub

Private Sub Application_DocumentOpen(ByVal Doc As Word.Document)

End Sub

Private Sub Application_DocumentSync(ByVal Doc As Word.Document, ByVal SyncEventType As Office.MsoSyncEventType)

End Sub

Private Sub Application_EPostageInsert(ByVal Doc As Word.Document)

End Sub

Private Sub Application_EPostageInsertEx(ByVal Doc As Word.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 Application_EPostagePropertyDialog(ByVal Doc As Word.Document)

End Sub

Private Sub Application_MailMergeAfterMerge(ByVal Doc As Word.Document, ByVal DocResult As Word.Document)

End Sub

Private Sub Application_MailMergeAfterRecordMerge(ByVal Doc As Word.Document)

End Sub

Private Sub Application_MailMergeBeforeMerge(ByVal Doc As Word.Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean)

End Sub

Private Sub Application_MailMergeBeforeRecordMerge(ByVal Doc As Word.Document, Cancel As Boolean)

End Sub

Private Sub Application_MailMergeDataSourceLoad(ByVal Doc As Word.Document)

End Sub

Private Sub Application_MailMergeDataSourceValidate(ByVal Doc As Word.Document, Handled As Boolean)

End Sub

Private Sub Application_MailMergeDataSourceValidate2(ByVal Doc As Word.Document, Handled As Boolean)

End Sub

Private Sub Application_MailMergeWizardSendToCustom(ByVal Doc As Word.Document)

End Sub

Private Sub Application_MailMergeWizardStateChange(ByVal Doc As Word.Document, FromState As Long, ToState As Long, Handled As Boolean)

End Sub

Private Sub Application_NewDocument(ByVal Doc As Word.Document)

End Sub

Private Sub Application_ProtectedViewWindowActivate(ByVal PvWindow As Word.ProtectedViewWindow)

End Sub

Private Sub Application_ProtectedViewWindowBeforeClose(ByVal PvWindow As Word.ProtectedViewWindow, ByVal CloseReason As Long, Cancel As Boolean)

End Sub

Private Sub Application_ProtectedViewWindowBeforeEdit(ByVal PvWindow As Word.ProtectedViewWindow, Cancel As Boolean)

End Sub

Private Sub Application_ProtectedViewWindowDeactivate(ByVal PvWindow As Word.ProtectedViewWindow)

End Sub

Private Sub Application_ProtectedViewWindowOpen(ByVal PvWindow As Word.ProtectedViewWindow)

End Sub

Private Sub Application_ProtectedViewWindowSize(ByVal PvWindow As Word.ProtectedViewWindow)

End Sub

Private Sub Application_Quit()

End Sub

Private Sub Application_WindowActivate(ByVal Doc As Word.Document, ByVal Wn As Word.Window)

End Sub

Private Sub Application_WindowBeforeDoubleClick(ByVal Sel As Word.Selection, Cancel As Boolean)

End Sub

Private Sub Application_WindowBeforeRightClick(ByVal Sel As Word.Selection, Cancel As Boolean)

End Sub

Private Sub Application_WindowDeactivate(ByVal Doc As Word.Document, ByVal Wn As Word.Window)

End Sub

Private Sub Application_WindowSelectionChange(ByVal Sel As Word.Selection)

End Sub

Private Sub Application_WindowSize(ByVal Doc As Word.Document, ByVal Wn As Word.Window)

End Sub

Private Sub Application_XMLSelectionChange(ByVal Sel As Word.Selection, ByVal OldXMLNode As Word.XMLNode, ByVal NewXMLNode As Word.XMLNode, Reason As Long)

End Sub

Private Sub Application_XMLValidationError(ByVal XMLNode As Word.XMLNode)

End Sub