Word VBA教程:MailMergeWizardStateChange事件

当用户从“邮件合并向导”的一个指定步骤变更到另一指定步骤时,该事件发生。

Private Sub object_MailMergeWizardStateChange(ByVal Doc As Document, FromState As Long, ToState As Long, Handled As Boolean)

object  在类模块事件中声明的 Application 类型对象。有关使用 Application对象事件的详细信息,请参阅使用 Application对象事件

Doc  邮件合并主文档。

FromState  用户目前所处的“邮件合并向导”步骤。

ToState  用户将变更至的“邮件合并向导”步骤。

Handled  如果该参数值为 True,则用户变更至下一步骤。如果该参数值为 False,则用户仍处于当前的步骤。

VBA示例

该示例在用户从“邮件合并向导”的步骤三变更至步骤四时,显示一条消息。根据对该消息的响应,用户将变更至步骤四或保持在步骤三。该示例假定在一般声明中声明了一个名为 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号