Méthode CustomXMLNode.AppendChildSubtree (Office)

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

Syntaxe

expression. AppendChildSubtree(XML)

expression Expression qui renvoie un objet CustomXMLNode .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
XML	Obligatoire	String	Représente la sous-arborescence à ajouter.

Remarques

Si le nœud de contexte est de type autre que msoCustomXMLNodeElement, l’opération d’ajout n’est pas effectuée et un message d’erreur s’affiche. Si customXMLNode est validé par rapport à un schéma et si l’opération entraîne une arborescence non valide, l’opération d’ajout n’est pas effectuée et un message d’erreur s’affiche.

Exemple

L'exemple suivant montre comment un nœud à un nœud existant.

Sub ShowCustomXmlParts() 
    Dim cxp1 As CustomXMLPart 
    Dim cxn As CustomXMLNode 
 
    With ActiveDocument 
 
        ' Add and populate a custom xml part 
        set cxp1 = .CustomXMLParts.Add "<invoice />" 
         
        ' Get nodes using XPath.                              
        Set cxn = cxp1.SelectSingleNode("//*[@quantity < 4]")  
  
        ' Append a child subtree to the single node selected previously. 
        cxn.AppendChildSubtree("<discounts><discount>0.10</discount></discounts>")          
         
    End With 
     
End Sub

Voir aussi

• Membres de l’objet CustomXMLNode

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.