通过

CustomXMLParts.Add 方法 (Office)

  • 项目

允许您向文件添加新的 CustomXMLPart。

语法

表达式。添加 (XML、 SchemaCollection)

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

参数

名称 必需/可选 数据类型 说明
XML 可选 字符串 包含要添加到新创建的 CustomXMLPart 中的 XML。
SchemaCollection 可选 CustomXMLSchemaCollection 代表要用于验证此流的架构集。

返回值

CustomXMLPart

示例

以下示例添加新 的 CustomXMLPart，使用搜索条件选择 CustomXMLPart ，然后从该部件中选择单个节点。

Sub ShowCustomXmlParts() 
    On Error GoTo Err 
 
    Dim cxp1 As CustomXMLPart 
 
    Dim cxn As CustomXMLNode 
    Dim cxns As CustomXMLNodes 
    Dim strXml As String 
    Dim strUri As String 
 
        ' Example written for Word. 
 
        ' Add a custom XML part. 
        ActiveDocument.CustomXMLParts.Add "<custXMLPart />" 
 
        ' Returns the first custom XML part with the given root namespace. 
        Set cxp1 = ActiveDocument.CustomXMLParts("urn:invoice:namespace")         
 
        ' Get a node using XPath.                              
        Set cxn = cxp1.SelectSingleNode("//*[@quantity < 4]")  
     
    Exit Sub 
                 
' Exception handling. Show the message and resume. 
Err: 
        MsgBox (Err.Description) 
        Resume Next 
End Sub

另请参阅

支持和反馈

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