Objet XMLNodes (Word)
Collection d'objets XMLNode qui représente les nœuds de l'arborescence du volet Office Structure XML, et qui indique les éléments appliqués par un utilisateur à un document. Chaque nœud dans l'arborescence est une instance de l'objet XMLNode. La hiérarchie de l'arborescence indique si un nœud contient des nœuds enfants.
unité d'organisation peut renvoyer une collection XMLNodes pour une sélection, une plage ou l'intégralité du document. L'ordre dans lequel les objets XMLNode apparaissent dans la collection XMLNodes est le même ordre dans lequel leurs balises de début ou de fin apparaissent au sein de la sélection spécifiée, une plage ou un document.
Utilisez la méthode Item de la collection XMLNodes pour renvoyer un objet XMLNode individuel. Utilisez la méthode Validate pour vérifier qu'un élément XML est valide ou schémas appliqués et que tous les éléments enfants requis existent et se trouvent dans le bon ordre. Une fois que vous exécutez la méthode Validate, utilisez la propriété ValidationStatus pour vérifier si un élément est valide et que la propriété ValidationErrorText pour afficher un message à l'utilisateur quant à ce que l'utilisateur doit corriger afin de rendre le XML du document sont conformes aux règles du schéma XML.
L’exemple suivant valide chacun des éléments XML du document actif et, si l’élément ou l’attribut n’est pas valide par rapport au schéma, retourne un message à l’utilisateur expliquant pourquoi l’élément n’est pas valide.
Dim objNode As XMLNode
For Each objNode In ActiveDocument.XMLNodes
objNode.Validate
If objNode.ValidationStatus <> wdXMLValidationStatusOK Then
MsgBox objNode.ValidationErrorText(True)
End If
Next
Utilisez la méthode Add pour ajouter un élément XML à une sélection, une plage ou du document. L'exemple suivant insère l'élément exemple depuis le schéma SimpleSample dans le document actif au niveau du point d'insertion ou autour de la sélection active.
Notes
Étant donné que XML respecte la casse, l’élément XML tel qu’il est tapé dans le paramètre Name de la méthode Add doit être tapé exactement comme il apparaît dans le schéma référencé dans le paramètre Namespace.
Dim objNode As XMLNode
Dim intResponse As Integer
Set objNode = Selection.XMLNodes.Add("example", "SimpleSample")
objNode.Validate
If objNode.ValidationStatus < 0 Then
intResponse = MsgBox("This element is invalid. " & _
"Are you sure you want to add it?", vbYesNo)
If intResponse = vbNo Then objNode.Delete
End If
Référence du modèle objet Word
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.