Word) (Application.MailMergeWizardStateChange 事件
會在使用者從 [合併列印精靈] 中某個指定的步驟變更到另一個指定的步驟時發生。
語法
運算式。MailMergeWizardStateChange (Doc、 FromState、 ToState、 Handled)
expression 代表 Application 物件的變數。
如需搭配 Application 物件使用 事件的相關資訊，請 參閱搭配 Application 物件使用事件。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Doc | 必要 | Document | 合併列印主文件。 |
| FromState | 必要 | Long | 使用者移動之前所在的 [合併列印精靈] 步驟。 |
| ToState | 必要 | Long | 使用者移動之後所在的 [合併列印精靈] 步驟。 |
| Handled | 必要 | Boolean | True 是表示 將使用者移至下一個步驟。 False 使用者停留在目前的步驟。 |
範例
在這個範例中，當使用者從 [合併列印精靈] 的步驟三移到步驟四時，程式就會顯示訊息。 根據使用者對該訊息的回覆，使用者將會移到步驟四，或是停留在步驟三。 這個範例會假設您已經在一般宣告中宣告了名稱為 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 支援與意見反應。