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

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。