XMLNode.NodeType (Word)

Renvoie une constante WdXMLNodeType qui représente le type de nœud. Les valeurs de retour possibles sont wdXMLNodeAttribute, wdXMLNodeElement.

Un objet XmlNode peut être un élément XML ou un attribut d'un élément.

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