通过

CustomXMLPart.AddNode 方法 (Office)

  • 项目

将节点添加到 XML 树。

语法

表达式。AddNode (Parent、 Name、 NamespaceURI、 NextSibling、 NodeType、 NodeValue)

表达 返回 CustomXMLPart 对象的表达式。

参数

名称 必需/可选 数据类型 说明
Parent 必需 CustomXMLNode 代表应该在其下添加此节点的节点。 如果添加属性，则该参数指示应该向其添加属性的元素。
Name 可选 字符串 代表要添加的节点的基本名称。
NamespaceURI 可选 字符串 代表要追加的元素的命名空间。 此参数是追加 类型为 msoCustomXMLNodeElement 或 msoCustomXMLNodeAttribute 的节点所必需的;否则，将忽略它。
NextSibling 可选 CustomXMLNode 代表应该成为新节点的下一个同级项的节点。 如果未指定，则节点将添加到父节点的子节点的末尾。 如果添加 msoXMLNodeAttribute 类型的节点，则忽略此参数。 如果该节点不是父节点的子节点，则显示一个错误。
NodeType 可选 MsoCustomXMLNodeType 指定要追加的节点的类型。 如果未指定该参数，则假定节点类型为 msoCustomXMLNodeElement。
NodeValue 可选 字符串 用于为允许文本的那些节点设置所追加节点的值。 如果节点不允许文本，则忽略 参数。

备注

如果 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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。