Método CustomXMLSchemaCollection.Add (Office)

Permite agregar uno o más esquemas a una colección de esquemas que se puede agregar después a una secuencia en el almacén de datos y en la Biblioteca de esquemas.

Sintaxis

expresión. Agregar (NamespaceURI, Alias, FileName, InstallForAllUsers)

Expresión Expresión que devuelve un objeto CustomXMLSchemaCollection .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
NamespaceURI	Opcional	String	Contiene el espacio de nombres del esquema que se va a agregar a la colección. Si ya existe el esquema en la Biblioteca de esquemas, el método lo recuperará de allí.
Alias	Opcional	String	Contiene el alias del esquema que se va a agregar a la colección. Si ya existe el alias en la Biblioteca de esquemas, el método puede buscarlo mediante este argumento.
FileName	Opcional	String	Contiene la ubicación del esquema en un disco. Si se especifica este parámetro, el esquema se agrega a la colección y a la biblioteca de esquemas.
InstallForAllUsers	Opcional	Boolean	Especifica si, en el caso en que el método agrega el esquema a la biblioteca de esquemas, las claves de la biblioteca de esquemas deben escribirse en el Registro (HKey_Local_Machine para todos los usuarios o HKey_Current_User solo para el usuario actual). El parámetro valor predeterminado es False y escribe en HKey_Current_User.

Valor devuelto

Customxmlschema

Ejemplo:

En el ejemplo siguiente se agrega un esquema a la colección de esquemas, se selecciona un nodo único desde ella y, a continuación, se devuelve el nodo al procedimiento de llamada.

 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 

Consulte también

• Miembros del objeto CustomXMLSchemaCollection

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.