次の方法で共有

CustomXMLNode.InsertNodeBefore メソッド (Office)

新しいノードを、ツリー内のコンテキスト ノードの直前に挿入します。

構文

式。InsertNodeBefore(Name, NamespaceURI, NodeType, NodeValue, NextSibling)

表現CustomXMLNode オブジェクトを返す式。

パラメーター

名前 必須 / オプション データ型 説明
名前 省略可能 String 追加するノードの基本名を表します。
NamespaceURI 省略可能 String 追加する要素の名前空間を表します。 このパラメーターは、 msoCustomXMLNodeElement 型または msoCustomXMLNodeAttribute 型のノードを追加する場合に必要です。それ以外の場合は無視されます。
NodeType 省略可能 MsoCustomXMLNodeType 追加するノードの種類を指定します。 パラメーターが指定されていない場合、ノードの種類は msoCustomXMLNodeElement と見なされます。
NodeValue 省略可能 String テキストを持つことができるノードの場合に、追加するノードの値を設定するために使用します。 テキストを持つことができないノードの場合、このパラメーターは無視されます。
NextSibling 省略可能 CustomXMLNode コンテキスト ノードを表します。

解説

コンテキスト ノードが種類が msoCustomXMLNodeElement 、 msoCustomXMLNodeComment 、または msoCustomXMLNodeProcessingInstruction のノードを追加するときに存在しない場合は、コンテキスト ノードの子ノード新しいノードが最後に追加されます。 場合は、操作の結果ツリー構造が無効に、挿入は実行されず、エラー メッセージが表示されます。

例

次の例では、カスタム部分を作成し、その部分に含まれるノードを XPath 式を使用して検索します。 さらに、検索したノードの前にノードを挿入します。

Dim cxp1 As CustomXMLPart 
Dim cxn As CustomXMLNode 
 
With ActiveDocument 
 
   ' Add a custom xml part. 
   .CustomXMLParts.Add "<invoice>" 
         
 
   ' Returns the first custom xml part with the given root namespace. 
   Set cxp1 = .CustomXMLParts("urn:invoice:namespace")              
  
   ' Get node using XPath.                              
   Set cxn = cxp1.SelectSingleNode("//*[@supplier = "Contoso"]")  
  
   ' Insert a node before the single node selected previously. 
    cxn.InsertNodeBefore("discount", "urn:invoice:namespace")   
              
 End With

関連項目

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

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

  • Last updated on