Application.MailMergeWizardStateChange 事件 (Word)

  • 项目

当用户在“邮件合并向导”中从一个指定步骤切换到另一个指定步骤时发生。

语法

表达式。MailMergeWizardStateChange (Doc、 FromState、 ToState、 Handled)

expression：表示 Application 对象的变量。

有关对 Application 对象使用事件的信息，请参阅 将事件与 Application 对象配合使用。

参数

名称 必需/可选 数据类型 说明
Doc 必需 Document 邮件合并主文档。
FromState 必需 Long 用户开始移动的"邮件合并向导"步骤。
ToState 必需 Long 用户将移至的"邮件合并向导"步骤。
Handled 必需 Boolean 真正 将用户移到下一步。 假 的用户仍保持在当前步骤。

示例

以下示例在用户从"邮件合并向导"的步骤三移至步骤四时显示一条消息。 根据对该消息的响应，用户将移至步骤四或保持在步骤三。 该示例假定在一般声明中声明了一个名为 MailMergeApp 的应用程序变量，并将 Word Application 对象赋给该变量。

Private Sub MailMergeApp_MailMergeWizardStateChange(ByVal Doc As Document, _ 
 FromState As Long, ToState As Long, Handled As Boolean) 
 
 Dim intVBAnswer As Integer 
 FromState = 3 
 ToState = 4 
 
 'Display a message when moving from step three to step four 
 intVBAnswer = MsgBox("Have you selected all of your recipients?", _ 
 vbYesNo, "Wizard State Event!") 
 
 If intVBAnswer = vbYes Then 
 'Continue on to step four 
 Handled = True 
 Else 
 'Return to step three 
 MsgBox "Please select all recipients to whom " & _ 
 "you want to send this letter." 
 Handled = False 
 End If 
 
End Sub

另请参阅

Application 对象

支持和反馈

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