Méthode CustomXMLNode.AppendChildNode (Office)

  • Article

Ajoute un nœud unique en tant que dernier enfant sous le nœud de l'élément de contexte dans l'arborescence.

Syntaxe

expression. AppendChildNode(Name, NamespaceURI, NodeType, NodeValue)

Expression Expression qui renvoie un objet CustomXMLNode .

Parameters

Nom Requis/Facultatif Type de données Description
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 pour ajouter des nœuds de type msoCustomXMLNodeElement ou msoCustomXMLNodeAttribute ; sinon, il est ignoré.
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 le type du nœud de contexte n'est pas msoXMLNodeElement ou si l'opération donne une structure d'arborescence incorrecte, l'ajout n'est pas effectué et un message d'erreur est affiché.

Exemple

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

Sub AppendNode() 
    Dim cxp1 As CustomXMLPart 
    Dim cxn As CustomXMLNode 
 
    With ActiveDocument 
 
        ' Add and populate a custom xml part 
        set cxp1 = .CustomXMLParts.Add "<invoice />" 
         
        ' Add a node 
        cxp1.AddNode "/invoice", "upccode", "urn:invoice:namespace" 
                        
        Set cxn = cxp1.SelectSingleNode("//*[@quantity < 4]")  
 
        ' Append a child node to the single node selected previously. 
        cxn.AppendChildNode("discount", "urn:invoice:namespace", "string", "0.10")          
                         
    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.