通过

CustomXMLSchemaCollection.Add 方法 (Office)

通过该方法，可以将一个或多个架构添加到架构集合中，该集合然后可被添加到数据存储中的流以及架构库中。

语法

表达式。添加 (NamespaceURI、 Alias、 FileName、 InstallForAllUsers)

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

参数

名称 必需/可选 数据类型 说明
NamespaceURI 可选 String 包含要添加到集合中的架构的命名空间。 如果架构库中已存在架构，则 方法将从该库中检索它。
Alias 可选 字符串 包含要添加到集合中的架构的别名。 如果别名在架构库中已存在，则方法可以使用此参数找到它。
FileName 可选 字符串 包含架构在磁盘上的位置。 如果指定此参数，架构将添加到集合和架构库中。
InstallForAllUsers 可选 Boolean 指定在方法将架构添加到架构库的情况下，是应将架构库键写入注册表 (HKey_Local_Machine所有用户，还是仅将当前用户) HKey_Current_User。 该参数默认为 False 并写入 HKey_Current_User。

返回值

CustomXMLSchema

示例

以下示例将架构添加到架构集合，从集合中选择单一的节点，然后将该节点返回到调用过程。

 Function AddSchema() 
    On Error GoTo Err 
 
    Dim objCustomXMLSchemaCollection As CustomXMLSchemaCollection 
    Dim cxp1 As CustomXMLSchema 
    Dim cxn As CustomXMLNode 
 
    ' Adds a schema to the collection.

    cxp1 = objCustomXMLSchemaCollection.Add("urn:invoice:namespace", "coreDefinitions", "wdCore.xsd", True) 
 
 ... 
 
    Set cxn = cxp4.SelectSingleNode("//*[@quantity < 4]") 
 
    AddSchema = cxn 
      
    Exit Function 
                 
 ' Exception handling. Show the message and resume. 
 Err: 
        MsgBox (Err.Description) 
        Resume Next 
 End Function

另请参阅

支持和反馈

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