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