Partilhar via

CustomXMLSchemaCollection.Add method (Office)

Permite que você adicione um ou mais esquemas a uma coleção de esquemas, a qual pode então ser adicionada a um fluxo no repositório de dados, bem como à Biblioteca de Esquemas.

Sintaxe

expressão. Adicionar (NamespaceURI, Alias, FileName, InstallForAllUsers)

expressão Uma expressão que devolve um objeto CustomXMLSchemaCollection .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
NamespaceURI Opcional String Contém o namespace do esquema a ser adicionado à coleção. Se o esquema já existir na Biblioteca de Esquemas, o método irá recuperá-lo da biblioteca.
Alias Opcional String Contém o alias do esquema a ser adicionado à coleção. Se o alias já existir na Biblioteca de Esquemas, o método pode localizá-lo usando este argumento.
FileName Opcional String Contém a localização do esquema em um disco. Se este parâmetro for especificado, o esquema é adicionado à coleção e à Biblioteca de Esquemas.
InstallForAllUsers Opcional Boolean Especifica se, no caso de o método estar a adicionar o esquema à Biblioteca de Esquemas, as chaves da Biblioteca de Esquemas devem ser escritas no registo (HKey_Local_Machine para todos os utilizadores ou HKey_Current_User apenas para o utilizador atual). O parâmetro padrão é False e grava em HKey_Current_User.

Valor de retorno

CustomXMLSchema

Exemplo

O exemplo a seguir adiciona um esquema à coleção de esquemas, seleciona um nó exclusivo da coleção e então retorna o nó ao procedimento de chamada.

 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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

  • Last updated on