Méthode CustomXMLNode.ReplaceChildSubtree (Office)

Cette méthode supprime le nœud spécifié (avec sa sous-arborescence) de l'arborescence principale, puis elle le remplace par une autre sous-arborescence au même endroit.

Syntaxe

expression. ReplaceChildSubtree(XML, OldNode)

expression Expression qui renvoie un objet CustomXMLNode .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
XML	Obligatoire	String	Représente la sous-arborescence à ajouter.
OldNode	Requis	CustomXMLNode	Représente le nœud enfant à remplacer.

Remarques

Si l’opération entraîne une arborescence non valide, l’opération de remplacement n’est pas effectuée et un message d’erreur s’affiche.

Exemple

L'exemple suivant sélectionne une partie personnalisée, puis un nœud dans cette partie. Le code remplace ensuite une sous-arborescence enfant de ce nœud par une autre sous-arborescence.

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")     '  
         
    ' Get node using XPath expression.                              
    Set cxn = cxp1.SelectSingleNode("//*[@supplierID = 1]")  
 
    ' Replace one subtree and its children with another. 
   cxn.ReplaceChildSubtree("<rebates><rebate>0.10</rebate></rebates>", "//discounts")   
                 
 End With

Voir aussi

• Membres de l’objet CustomXMLNode

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.