Application.MailMergeInsertBarcode 事件 (Publisher)

当用户在 Microsoft Publisher 用户界面 (UI) 中或以编程方式发出命令将邮政条码插入到邮件合并出版物时发生。

语法

表达式。MailMergeInsertBarcode (Doc、 OkToInsert)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Doc	必需	Document	当前出版物。
OkToInsert	必需	Boolean	输出参数。 如此 如果没什么要插入条码。

备注

使用 TextRange.InsertBarcode 方法将条形码插入邮件合并出版物。

第三方加载项验证邮件合并地址可以使用 MailMergeInsertBarcode 事件侦听请求插入该条形码的用户操作。 在这种情况下，当外接程序收到 MailMergeInsertBarcode 事件触发的通知时，它会检查邮件合并列表中地址的有效性，如果地址有效，它会尝试生成条形码。 如果此尝试成功，外接程序应返回 OkToInsert 参数的 True。 如果该尝试失败外, 接程序应返回 False 。

实际条码数据是通过 MailMergeGenerateBarcode 事件提供给 Publisher 的。

当用户在“邮件合并”或“目录合并”任务窗格中选择“添加邮政条形码”，或者在 Publisher UI 的“发布服务器任务”任务窗格中选择“添加邮政条形码”时，也会触发 MailMergeInsertBarcode 事件。 在用户可以选择其中任一 UI 命令之前，必须先通过将 InsertBarcodeVisible 属性设置为 True 来使其可用。

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

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏显示如何处理 MailMergeInsertBarcode 事件。 它将显示一条消息询问是否继续插入条码。

Private Sub pubApplication_MailMergeInsertBarcode(ByVal Doc As Document, OkToInsert As Boolean) 
 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Proceed to insert barcodes?", vbYesNo) 
 
 If intResponse = vbYes Then OkToInsert = True 
 
End Sub

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

Public WithEvents pubApplication As Application

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

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

支持和反馈

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