Объект XMLNodes (Word)
Коллекция объектов XMLNode , представляющая узлы в представлении дерева области задач Структура XML , которая указывает элементы, примененные пользователем к документу. Каждый узел в представлении дерева является экземпляром объекта XMLNode . Иерархия в представлении дерева указывает, содержит ли узел дочерние узлы. Y
ou может возвращать коллекцию XMLNodes для выделенного фрагмента, диапазона или всего документа. Порядок, в котором объекты XMLNode отображаются в коллекции XMLNodes, совпадает с тем же порядком, в котором их начальные или конечные теги отображаются в указанном выделенном фрагменте, диапазоне или документе.
Используйте метод Item коллекции XMLNodes , чтобы вернуть отдельный объект XMLNode . Используйте метод Validate , чтобы убедиться, что XML-элемент действителен в соответствии с примененными схемами и что все необходимые дочерние элементы существуют и находятся в необходимом порядке. После запуска метода Validate используйте свойство ValidationStatus , чтобы проверить, является ли элемент допустимым, и свойство ValidationErrorText , чтобы отобразить пользователю сообщение о том, что пользователю необходимо исправить, чтобы xml-код в документе соответствовал правилам схемы XML.
В следующем примере проверяется каждый из XML-элементов в активном документе, и если элемент или атрибут признан недопустимым для схемы, пользователю возвращается сообщение с объяснением причин, почему элемент является недопустимым.
Dim objNode As XMLNode
For Each objNode In ActiveDocument.XMLNodes
objNode.Validate
If objNode.ValidationStatus <> wdXMLValidationStatusOK Then
MsgBox objNode.ValidationErrorText(True)
End If
Next
Используйте метод Add , чтобы добавить XML-элемент в выделенный фрагмент, диапазон или документ. В следующем примере элемент примера из схемы SimpleSample вставляется в активный документ в точке вставки или вокруг активного выделения.
Примечание
Так как XML учитывает регистр, xml-элемент, введенный в параметре Name метода Add , должен быть введен точно так, как он отображается в схеме, на который ссылается параметр пространства имен.
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
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.