Application.MailMergeGenerateBarcode 事件 (Publisher)

当 Microsoft Publisher 需要相关数据以在邮件合并出版物中生成条码时发生该事件，例如当邮件合并收件人列表发生更改时会发生该事件。

语法

表达式。MailMergeGenerateBarcode (Doc、 bstrString)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Doc	必需	Document	当前出版物。
bstrString	必需	String	输出参数。 条码的字符串表示形式。

备注

第三方加载项验证邮件合并地址可以使用 MailMergeGenerateBarcode 事件侦听请求该条形码生成的用户操作。 在此情况下外, 接程序接收通知， MailMergeGenerateBarcode 事件触发，并且如果活动文档连接到数据源时外, 接程序可以使用 MailMergeDataSource.ActiveRecord 属性来确定要为其生成条形码记录时。 如果活动文档未连接到数据源中外, 接程序使用的地址文本直接。

如果加载项可以直接使用地址文本，它将返回 bstrString 输出参数条形码的字符串表示形式。 如果该加载项不能直接使用地址文本，则它将返回一个空字符串。

若要允许触发 MailMergeGenerateBarcode 事件，必须在代码中处理 MailMergeInsertBarcode 事件，并且外接程序必须将传递给该事件的 OkToInsert 参数设置为 True。

有关对 Application 对象使用事件的详细信息，请参阅 对 Application 对象使用事件。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏显示如何处理 MailMergeGenerateBarcode 事件。 它返回表示活动记录的条形码的字符串。 请注意，变量 indexNumberOfBarcodeColumn 表示数据源中列出条码的列的索引编号。 此代码假定当前出版物已连接到数据源。

Private Sub pubApplication_MailMergeGenerateBarcode(ByVal Doc As Document, bstrString As String) 
 bstrString = pubApplication.ActiveDocument.MailMerge.DataSource.DataFields.Item(indexNumberOfBarcodeColumn).Value 
End Sub

为了使此事件发生，您必须将以下代码行置于模块的 通用声明部分中。

Public WithEvents pubApplication As Application

然后，必须运行以下初始化过程。

Public Sub Initialize_pubApplication() 
 Set pubApplication = Publisher.Application 
End Sub

支持和反馈

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