使用 Application对象事件

　　若要创建Application对象事件的事件处理器，需要完成下列三个步骤：
　　1.在类模块中声明对应于事件的对象变量。
　　2.编写指定事件的过程。
　　3.从其他模块中初始化已声明的对象。
　　声明对象变量
　　在为 Application对象事件编写过程之前，必须创建新的类模块并声明一个包含事件的 Application 类型对象。例如，假定已创建新的类模块并命名为 EventClassModule。该类模块包含下列代码:
　　Public WithEvents App As Word.Application
　　编写事件过程
　　定义了包含事件的新对象后，它将出现在类模块的“对象”下拉列表框中，然后可为新对象编写事件过程。（在“对象”框中选定新对象后，用于该对象的有效事件将出现在“过程”下拉列表框中）从“过程”下拉列表框中选择一个事件，在类模块中会增加一空过程。
　　Private Sub App_DocumentChange()
　　End Sub
　　初始化已声明的对象
　　在运行过程之前，必须将类模块中已声明的对象（本例中为 App）连接到 Application对象。您可在任何模块中使用下列代码：
　　Dim X As New EventClassModule
　　Sub Register_Event_Handler()
 　　   Set X.App = Word.Application
　　End Sub
　　运行 Register_Event_Handler 过程。运行该过程后，类模块中的 App对象指向 Microsoft
 Word Application对象，当事件发生时，将运行类模块中的事件过程。