Méthode CustomXMLNode.InsertNodeBefore (Office)

  • Article

Insère un nouveau nœud juste avant le nœud de contexte dans l’arborescence.

Syntaxe

expression. InsertNodeBefore(Name, NamespaceURI, NodeType, NodeValue, NextSibling)

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 du nœud à 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 du nœud à ajouter. Si le 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é.
NextSibling Facultatif CustomXMLNode Représente le nœud de contexte.

Remarques

Si le nœud de contexte n’est pas présent lors de l’ajout d’un nœud de type msoCustomXMLNodeElement, msoCustomXMLNodeComment ou msoCustomXMLNodeProcessingInstruction, le nouveau nœud est ajouté au dernier enfant du nœud de contexte. Si l'opération donne une structure d'arborescence incorrecte, l'insertion n'est pas effectuée et un message d'erreur est affiché.

Exemple

L’exemple suivant montre comment ajouter une partie personnalisée puis trouver un nœud dans cette partie à l’aide d’une expression XPath. Le code insère ensuite un nœud avant le nœud localisé.

Dim cxp1 As CustomXMLPart 
Dim cxn As CustomXMLNode 
 
With ActiveDocument 
 
   ' Add a custom xml part. 
   .CustomXMLParts.Add "<invoice>" 
         
 
   ' Returns the first custom xml part with the given root namespace. 
   Set cxp1 = .CustomXMLParts("urn:invoice:namespace")              
  
   ' Get node using XPath.                              
   Set cxn = cxp1.SelectSingleNode("//*[@supplier = "Contoso"]")  
  
   ' Insert a node before the single node selected previously. 
    cxn.InsertNodeBefore("discount", "urn:invoice:namespace")   
              
 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.