将事件与 Application 对象 (Publisher)

  • 项目

若要创建 Application 对象事件的事件处理器，需要完成下列三个步骤：

  1. 在类模块中声明一个对象变量以响应事件。

  2. 编写特定的事件过程。

  3. 在另一模块中初始化声明的对象。

声明对象变量

在您可以为 Application 对象事件编写过程之前，必须创建新的类模块并声明带有事件的 Application 类型的对象。 例如，假定已经创建了一个名为 EventClassModule 的新的类模块。 新的类模块包含以下代码。

Public WithEvents App As Publisher.Application

编写事件过程

After the new object has been declared with events, it appears in the Object drop-down list box in the class module, and you can write event procedures for the new object. 在“对象”框中选择新 对象 时，“ 过程 ”下拉列表框中会列出该对象的有效事件。 从“ 过程 ”下拉列表框中选择事件;空过程将添加到类模块。

Private Sub App_DocumentOpen() 
 
End Sub

初始化声明的对象

在运行过程之前，必须将类模块中声明的对象（本示例中是 App）与 Application 对象连接起来。 您可以从任何模块中使用以下代码执行该操作。

Dim X As New EventClassModule 
Sub Register_Event_Handler() 
 Set X.App = Publisher.Application 
End Sub

运行 Register_Event_Handler 过程。 运行过程后，类模块中的 App 对象指向 Microsoft Publisher Application 对象，类模块中的事件过程将在事件发生时运行。

注意

有关为 Document 对象创建事件过程的信息，请参阅 对 Document 对象使用事件。

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。