次の方法で共有

CustomXMLNode.ReplaceChildNode メソッド (Office)

指定した子ノード (およびそのサブツリー) をメイン ツリーから削除し、同じ場所にある別のノードで置き換えます。

構文

式。ReplaceChildNode(OldNode, Name, NamespaceURI, NodeType, NodeValue)

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

パラメーター

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

解説

OldNode パラメーターがコンテキスト ノードの子ではない場合、または操作によってツリー構造が無効になる場合、置換は実行されず、エラー メッセージが表示されます。 追加するノードが既に存在する場合も、置換が実行されずにエラー メッセージが表示されます。

例

次の例では、カスタム部分を選択し、その部分に含まれるノードを選択します。 さらに、そのノードの子を別のノードで置き換えます。

Dim cxp1 As CustomXMLPart 
Dim cxn As CustomXMLNode 
 
With ActiveDocument 
 
   ' Return the first custom xml part with the given root namespace. 
   Set cxp1 = .CustomXMLParts("urn:invoice:namespace")     '  
                              
   Set cxn = cxp1.SelectSingleNode("//*[@supplierID = 1]")  
 
   ' Replace a child node. 
    cxn.ReplaceChildNode(cxn.SelectSingleNode("//discount", "rebate")   
        
End With

関連項目

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

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

  • Last updated on