Application.MailMergeWizardStateChange イベント (Word)
差し込み印刷ウィザードで、ユーザーが指定の手順から別の指定の手順に進むときに発生します。
構文
式。MailMergeWizardStateChange (Doc、 FromState、 ToState、 Handled)
expressionApplication オブジェクトを 表す変数。
Application オブジェクトでイベントを使用する方法については、「 Application オブジェクト でのイベントの使用」を参照してください。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| Doc | 必須 | Document | 差し込み印刷のメイン文書を指定します。 |
| FromState | 必須 | 長整数型 (Long) | ユーザーの移動元となる、差し込み印刷ウィザードの手順を指定します。 |
| ToState | 必須 | 長整数型 (Long) | ユーザーの移動先となる、差し込み印刷ウィザードの手順を指定します。 |
| Handled | 必須 | ブール型 (Boolean) | True は、次のステップにユーザーを移動します。 False ユーザーが現在の手順から進みません。 |
例
次の使用例は、ユーザーが差し込み印刷ウィザードの手順 3 から手順 4 に進むときにメッセージを表示します。 メッセージに対する応答に基づいて、ユーザーは手順 4 に進むか、または手順 3 から進みません。 この使用例では、アプリケーション変数 MailMergeApp を General Declarations に宣言していること、および 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 のサポートおよびフィードバックを参照してください。