Partager via

Méthode CustomXMLPart.AddNode (Office)

  • Article

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

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.