Partager via


Méthode CustomXMLParts.Add (Office)

Vous permet d’ajouter un nouveau CustomXMLPart à un fichier.

Syntaxe

expression. Add (XML, SchemaCollection)

Expression Expression qui renvoie un objet CustomXMLParts .

Parameters

Nom Requis/Facultatif Type de données Description
XML Facultatif String Contient le code XML à ajouter au modèle CustomXMLPart nouvellement créé
SchemaCollection Facultatif CustomXMLSchemaCollection Représente le jeu de schémas à utiliser pour valider ce flux

Valeur renvoyée

CustomXMLPart

Exemple

L’exemple suivant ajoute un nouveau CustomXMLPart, sélectionne un CustomXMLPart à l’aide d’un critère de recherche, puis sélectionne un nœud unique à partir de ce composant.

Sub ShowCustomXmlParts() 
    On Error GoTo Err 
 
    Dim cxp1 As CustomXMLPart 
 
    Dim cxn As CustomXMLNode 
    Dim cxns As CustomXMLNodes 
    Dim strXml As String 
    Dim strUri As String 
 
        ' Example written for Word. 
 
        ' Add a custom XML part. 
        ActiveDocument.CustomXMLParts.Add "<custXMLPart />" 
 
        ' Returns the first custom XML part with the given root namespace. 
        Set cxp1 = ActiveDocument.CustomXMLParts("urn:invoice:namespace")         
 
        ' Get a node using XPath.                              
        Set cxn = cxp1.SelectSingleNode("//*[@quantity < 4]")  
     
    Exit Sub 
                 
' Exception handling. Show the message and resume. 
Err: 
        MsgBox (Err.Description) 
        Resume Next 
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.