XMLNode.Attributes (Word)

Renvoie une collection XMLNodes qui représente les attributs d'un élément spécifié.

Tous les objets XmlNode de la collection XMLNodes renvoyés à l'aide de la propriété attributes ont une valeur de propriété NodeType de égale à wdXMLNodeAttribute.

Sub AddIDAttribute() 
 Dim objElement As XMLNode 
 Dim objAttribute As XMLNode 
 
 For Each objElement In ActiveDocument.XMLNodes 
 If objElement.NodeType = wdXMLNodeElement Then 
 If objElement.BaseName = "book" Then 
 
 Set objAttribute = objElement.Attributes _ 
 .Add("author", objElement.NamespaceURI) 
 
 objAttribute.NodeValue = "David Barber" 
 
 Exit For 
 End If 
 End If 
 Next 
End Sub