Attributes Property
Returns an XMLNodes collection that represents the attributes for the specified element. All XMLNode objects in the XMLNodes collection returned by using the Attributes property have a NodeType property value of wdXMLNodeAttribute.
expression.Attributes
expression Required. An expression that returns an XMLNode object.
Example
The following example adds the author attribute to the book element in the active document and then sets the value of the attribute.
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