Document.XMLAfterInsert イベント (Word)

ユーザーが文書に新しい XML 要素を追加したときに発生します。 XML の切り取りと貼り付けなどを使用して同時に複数の要素を文書に追加した場合は、挿入した各要素に対してイベントが発生します。

構文

式。XMLAfterInsert'(NewXMLNode**, InUndoRedo)

式クラス モジュールで WithEvents キーワードを使用して宣言された 'Document' オブジェクトを表す変数。 Document オブジェクトでイベントを使用する方法については、「Document オブジェクトでのイベントの使用」を参照してください。

パラメーター

名前	必須 / オプション	データ型	説明
NewXMLNode	必須	XMLNode	新しく追加された XML ノードを指定します。
InUndoRedo	必須	ブール型 (Boolean)	True では、Microsoft Word で 元に戻すまたは やり直し機能を使用して、アクションが実行されたことを示します。

注釈

InUndoRedo パラメーターが True の場合は、 XMLAfterInsert イベントと XMLBeforeDelete イベントの実行中にしない文書内の XML を変更します。

InUndoRedo パラメーターが False の場合は、できます挿入し削除、ドキュメント内の XML がように、 XMLAfterInsert イベントと XMLBeforeDelete イベントがください、互いをキャンセルするのには無限ループを引き起こしているように注意してください。 グローバルを使用して、無限ループを防ぐことができます ブール型 の変数と次の例に示すように、エラー ハンドラーの冒頭でチェックします。

Dim blnIsXMLInsertRunning As Boolean 
 
Private Sub Document_XMLAfterInsert(ByVal DeletedRange As Range, _ 
 ByVal OldXMLNode As XMLNode, ByVal InUndoRedo As Boolean) 
 
 If blnIsXMLInsertRunning = False Then 
 blnIsXMLInsertRunning = True 
 'Insert your event code here. 
 Else 
 Exit Sub 
 End If 
End Sub

例

次の使用例は、新しく追加されたノードを検証し、ノードが有効でない場合は検証エラーを示すメッセージを表示します。

Private Sub Document_XMLAfterInsert(ByVal NewXMLNode As XMLNode, _ 
 ByVal InUndoRedo As Boolean) 
 
 NewXMLNode.Validate 
 
 If NewXMLNode.ValidationStatus <> wdXMLValidationStatusOK Then 
 MsgBox NewXMLNode.ValidationErrorText 
 End If 
End Sub

関連項目

ドキュメント オブジェクト

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

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