若要创建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对象，当事件发生时，将运行类模块中的事件过程。
