Application.MailMergeWizardStateChange 事件

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

语法

表达式.Private Sub object_MailMergeWizardStateChange(ByVal Doc As Document, FromState As Long, ToState As Long, Handled As Boolean)

表达式 一个代表 Application 对象的变量，该对象已使用类模块?（类模块：包含新对象的定义的模块。当创建类的新实例时，即创建新对象。模块中定义的过程成为该对象的属性和方法。）中的事件声明。有关使用 Application 对象事件的详细信息，请参阅使用 Application 对象事件。

参数

名称	必选/可选	数据类型	说明
Doc	必选	Document	邮件合并主文档。
FromState	必选	Long	用户开始移动的“邮件合并向导”步骤。
ToState	必选	Long	用户将移至的“邮件合并向导”步骤。
Handled	必选	Boolean	如果该参数值为 True，则用户移至下一步骤。如果该参数值为 False，则用户仍保持在当前步骤。

示例

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

示例代码

示例代码
`function Application_MailMergeWizardStateChange(Doc, FromState, ToState, Handled) { let intVBAnswer FromState = 3 ToState = 4 //Display a message when moving from step three to step four intVBAnswer = MsgBox("Have you selected all of your recipients?", jsYesNo, "Wizard State Event!") if(intVBAnswer == jsResultYes) { //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 } }`

function Application_MailMergeWizardStateChange(Doc, FromState, ToState, Handled) {
    let intVBAnswer
    FromState = 3
    ToState = 4

    //Display a message when moving from step three to step four
    intVBAnswer = MsgBox("Have you selected all of your recipients?", jsYesNo, "Wizard State Event!")

    if(intVBAnswer == jsResultYes) {
        //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
    }
}

请参阅