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.