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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。