XMLNode.Attributes (Word)

Gibt eine XMLNodes-Auflistung zurück, die die Attribute für das angegebene Element darstellt.

Alle XmlNode -Objekte in der XMLNodes-Auflistung, die mithilfe der Attributes -Eigenschaft zurückgegeben werden, haben einen NodeType -Eigenschaftswert von 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