CustomXMLNode.AppendChildSubtree 方法 (Office)

将子树作为树中上下文元素节点下的最后一个子节点添加。

语法

表达式AppendChildSubtree (XML)

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

参数

名称 必需/可选 数据类型 说明
XML 必需 字符串 代表要添加的子树。

备注

如果上下文节点是 msoCustomXMLNodeElement 以外的任何类型,则不执行追加操作,并显示错误消息。 如果针对架构验证 CustomXMLNode ,并且操作会导致树结构无效,则不执行追加操作,并显示错误消息。

示例

以下示例说明了如何将节点追加到现有节点。

Sub ShowCustomXmlParts() 
    Dim cxp1 As CustomXMLPart 
    Dim cxn As CustomXMLNode 
 
    With ActiveDocument 
 
        ' Add and populate a custom xml part 
        set cxp1 = .CustomXMLParts.Add "<invoice />" 
         
        ' Get nodes using XPath.                              
        Set cxn = cxp1.SelectSingleNode("//*[@quantity < 4]")  
  
        ' Append a child subtree to the single node selected previously. 
        cxn.AppendChildSubtree("<discounts><discount>0.10</discount></discounts>")          
         
    End With 
     
End Sub

另请参阅

支持和反馈

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