Méthode CustomXMLPart.AddNode (Office)

Article
04/07/2023

Ajoute un nœud à l'arborescence XML.

Syntaxe

expression. AddNode (Parent, Name, NamespaceURI, NextSibling, NodeType, NodeValue)

Expression Expression qui renvoie un objet CustomXMLPart .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Parent	Requis	CustomXMLNode	Représente le nœud sous lequel ce nœud doit être ajouté. En cas d'ajout d'un attribut, le paramètre désigne l'élément auquel ajouter l'attribut.
Name	Facultatif	String	Représente le nom de base du nœud à ajouter.
NamespaceURI	Facultatif	String	Représente l'espace de noms de l'élément à ajouter. Ce paramètre est requis pour ajouter des nœuds de type msoCustomXMLNodeElement ou msoCustomXMLNodeAttribute ; sinon, il est ignoré.
NextSibling	Facultatif	CustomXMLNode	Représente le nœud qui doit devenir le frère suivant du nouveau nœud. S’il n’est pas spécifié, le nœud est ajouté à la fin des enfants du nœud parent. Ce paramètre n’est pas pris en compte pour des ajouts de type msoXMLNodeAttribute. Si le nœud n’est pas un enfant du parent, une erreur s’affiche.
NodeType	Facultatif	MsoCustomXMLNodeType	Spécifie le type de nœud à ajouter. Si le paramètre n'est pas spécifié, il est supposé être de type msoCustomXMLNodeElement.
NodeValue	Facultatif	String	Utilisé pour définir la valeur du nœud ajouté pour les nœuds autorisant du texte. Si le nœud n’autorise pas le texte, le paramètre est ignoré.

Remarques

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

Exemple

L'exemple suivant montre comment ajouter un nœud à un objet CustomXMLPart.

Sub AddNodeCustomXmlParts() 
 
    Dim cxp1 As CustomXMLPart 
    Dim cxn As CustomXMLNode 
     
    With ActiveDocument 
        ' Add and populate a custom xml part 
        Set cxp1 = .CustomXMLParts.Add("<invoice />") 
         
        ' Set the parent node  
        Set cxn = cxp1.SelectSingleNode("/invoice") 
         
        ' Add a node under the parent node 
        cxp1.AddNode cxn, "upccode", "urn:invoice:namespace" 
 
    End With 
     
End Sub

Voir aussi

Membres de l’objet CustomXMLPart

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.

Partager via