Compartir a través de

Método CustomXMLSchemaCollection.Add (Office)

  • Artículo

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

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.