XMLNode.Attributes (Word)

Devuelve una colección XMLNodes que representa los atributos del elemento especificado.

Todos los objetos XmlNode de la colección XMLNodes devueltas por el uso de la propiedad attributes tienen un valor de la propiedad NodeType de 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