Share via


Méthode CustomXMLNode.ReplaceChildNode (Office)

Supprime le nœud enfant spécifié (et sa sous-arborescence) de l’arborescence principale et le remplace par un autre nœud au même emplacement.

Syntaxe

expression. ReplaceChildNode(OldNode, Name, NamespaceURI, NodeType, NodeValue)

Expression Expression qui renvoie un objet CustomXMLNode .

Parameters

Nom Requis/Facultatif Type de données Description
OldNode Requis CustomXMLNode Représente le nœud enfant à remplacer.
Name Facultatif String Représente le nom de base de l'élément à ajouter.
NamespaceURI Facultatif String Représente l'espace de noms de l'élément à ajouter. Ce paramètre est requis si vous ajoutez des nœuds de type msoCustomXMLNodeElement ou msoCustomXMLNodeAttribute ; sinon, il est ignoré.
NodeType Facultatif MsoCustomXMLNodeType Spécifie le type de nœud à ajouter. Si ce paramètre n'est pas spécifié, il est supposé être de type msoCustomXMLNodeElement.
NodeValue Facultatif String Permet de définir la valeur du nœud à ajouter pour les nœuds qui acceptent du texte. Si le nœud n’autorise pas le texte, le paramètre est ignoré.

Remarques

Si le paramètre OldNode n’est pas un enfant du nœud de contexte, ou si l’opération entraîne une structure d’arborescence non valide, le remplacement n’est pas effectué et un message d’erreur s’affiche. De plus, si le nœud à ajouter existe déjà, le remplacement n'est pas effectué 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 un enfant de ce nœud par un autre nœud.

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

Voir aussi

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.