Метод CustomXMLPart.AddNode (Office)

Статья
04/07/2023

Добавляет узел в XML-дерево.

Синтаксис

expression. AddNode (Parent, Name, NamespaceURI, NextSibling, NodeType, NodeValue)

Выражение Выражение, возвращающее объект CustomXMLPart .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Parent	Обязательный	CustomXMLNode	Представляет узел, под которым должен быть добавлен этот узел. При добавлении атрибута параметр обозначает элемент, к которому следует добавить атрибут.
Name	Необязательно заполнять.	String	Представляет базовое имя добавляемого узла.
NamespaceURI	Необязательный	String	Представляет пространство имен добавляемого элемента. Этот параметр необходим для добавления узлов типа msoCustomXMLNodeElement или msoCustomXMLNodeAttribute; в противном случае он игнорируется.
NextSibling	Необязательный	CustomXMLNode	Представляет узел, который должен стать следующим дочерним элементом нового узла. Если этот параметр не указан, узел добавляется в конец дочерних элементов родительского узла. Этот параметр игнорируется для дополнений типа msoXMLNodeAttribute. Если узел не является дочерним для родительского элемента, отображается ошибка.
NodeType	Необязательный	MsoCustomXMLNodeType	Указывает тип добавляемого узла. Если параметр не указан, предполагается, что он имеет тип msoCustomXMLNodeElement.
NodeValue	Необязательный	String	Используется для задания значения добавляемого узла для узлов, разрешающих текст. Если узел не разрешает текст, параметр игнорируется.

Замечания

Если операция AddNode приведет к созданию недопустимой структуры дерева, добавление не выполняется и отображается сообщение об ошибке.

Пример

В следующем примере показано добавление узла в объект CustomXMLPart .

Sub AddNodeCustomXmlParts() 
 
    Dim cxp1 As CustomXMLPart 
    Dim cxn As CustomXMLNode 
     
    With ActiveDocument 
        ' Add and populate a custom xml part 
        Set cxp1 = .CustomXMLParts.Add("<invoice />") 
         
        ' Set the parent node  
        Set cxn = cxp1.SelectSingleNode("/invoice") 
         
        ' Add a node under the parent node 
        cxp1.AddNode cxn, "upccode", "urn:invoice:namespace" 
 
    End With 
     
End Sub

См. также

Элементы объекта CustomXMLPart

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через