XmlMapping.SetMappingByNode, méthode (Word)
Permet de créer ou modifier le mappage de données XML dans un contrôle de contenu. Renvoie la valeur True si Microsoft Word mappe le contrôle de contenu à un nœud XML personnalisé dans le magasin de données XML personnalisé du document.
Syntaxe
expression. SetMappingByNode( _Node_ )
Expression Expression qui renvoie un objet « XMLMapping ».
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Node | Obligatoire | CustomXMLNode | Spécifie le nœud XML sur lequel mapper le contrôle de contenu actif. |
Valeur renvoyée
Booléen
Remarques
Si le mappage XML existe déjà, Word remplace le mappage XML existant et le contenu du nouveau nœud XML mappé remplace le texte du contrôle de contenu. Voir aussi la méthode SetMapping.
Remarque
La création d'un mappage pour un contrôle de contenu de texte enrichi génère une erreur d'exécution.
Exemple
Cet exemple montre comment définir la propriété de document prédéfinie pour l'auteur du document, insérer un nouveau contrôle de contenu dans le document actif et définir le mappage XML du contrôle sur la propriété de document prédéfinie.
Dim objcc As ContentControl
Dim objNode As CustomXMLNode
Dim objMap As XMLMapping
Dim blnMap As Boolean
ActiveDocument.BuiltInDocumentProperties("Author").Value = "David Jaffe"
Set objcc = ActiveDocument.ContentControls.Add _
(wdContentControlDate, ActiveDocument.Paragraphs(1).Range)
Set objNode = ActiveDocument.CustomXMLParts.SelectByNamespace _
("https://schemas.openxmlformats.org/package/2006/metadata/core-properties") _
(1).DocumentElement.ChildNodes(1)
Set objMap = objcc.XMLMapping
blnMap = objMap.SetMappingByNode(objNode)
Cet exemple montre comment créer une partie XML personnalisée, créer deux contrôles de contenu et les mapper sur un nœud spécifique dans la partie XML personnalisée.
Dim objRange As Range
Dim objCustomPart As CustomXMLPart
Dim objCustomControl As ContentControl
Dim objCustomNode As CustomXMLNode
Set objCustomPart = ActiveDocument.CustomXMLParts.Add
objCustomPart.LoadXML ("<books><book><author>Matt Hink</author>" & _
"<title>Migration Paths of the Red Breasted Robin</title><genre>non-fiction</genre>" & _
"<price>29.95</price><pub_date>2007-02-01</pub_date><abstract>" & _
"You see them in the spring outside your windows. You hear their lovely " & _
"songs wafting in the warm spring air. Now follow the path of the red breasted robin " & _
"as it migrates to warmer climes in the fall, and then back to your back yard " & _
"in the spring.</abstract></book></books>")
ActiveDocument.Range.InsertParagraphBefore
Set objRange = ActiveDocument.Paragraphs(1).Range
Set objCustomNode = objCustomPart.SelectSingleNode _
("/books/book/title")
Set objCustomControl = ActiveDocument.ContentControls _
.Add(wdContentControlText, objRange)
objCustomControl.XMLMapping.SetMappingByNode objCustomNode
objRange.InsertParagraphAfter
Set objRange = ActiveDocument.Paragraphs(2).Range
Set objCustomNode = objCustomPart.SelectSingleNode _
("/books/book/abstract")
Set objCustomControl = ActiveDocument.ContentControls _
.Add(wdContentControlText, objRange)
objCustomControl.XMLMapping.SetMappingByNode objCustomNode
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.