Método CustomXMLSchemaCollection.Add (Office)

Artigo
04/07/2023

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 retorna 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 esse parâmetro for especificado, o esquema será adicionado à coleção e à Biblioteca de Esquemas.
InstallForAllUsers	Opcional	Boolean	Especifica se, no caso em que o método está adicionando o esquema à Biblioteca de Esquemas, as chaves da Biblioteca de Esquemas devem ser gravadas no registro (HKey_Local_Machine para todos os usuários ou HKey_Current_User apenas para o usuário 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

Membros do objeto CustomXMLSchemaCollection

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.

Compartilhar via