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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour