Método CustomXMLParts.Add (Office)

Artigo
04/07/2023

Permite que você adicione um novo CustomXMLPart a um arquivo.

Sintaxe

expressão. Adicionar (XML, SchemaCollection)

Expressão Uma expressão que retorna um objeto CustomXMLParts .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
XML	Opcional	String	Contém o XML a ser adicionado ao recém-criado CustomXMLPart.
SchemaCollection	Opcional	CustomXMLSchemaCollection	Representa o conjunto de esquemas usado para validar este fluxo.

Valor de retorno

CustomXMLPart

Exemplo

O exemplo a seguir adiciona um novo CustomXMLPart, seleciona um CustomXMLPart usando um critério de pesquisa e seleciona um único nó dessa parte.

Sub ShowCustomXmlParts() 
    On Error GoTo Err 
 
    Dim cxp1 As CustomXMLPart 
 
    Dim cxn As CustomXMLNode 
    Dim cxns As CustomXMLNodes 
    Dim strXml As String 
    Dim strUri As String 
 
        ' Example written for Word. 
 
        ' Add a custom XML part. 
        ActiveDocument.CustomXMLParts.Add "<custXMLPart />" 
 
        ' Returns the first custom XML part with the given root namespace. 
        Set cxp1 = ActiveDocument.CustomXMLParts("urn:invoice:namespace")         
 
        ' Get a node using XPath.                              
        Set cxn = cxp1.SelectSingleNode("//*[@quantity < 4]")  
     
    Exit Sub 
                 
' Exception handling. Show the message and resume. 
Err: 
        MsgBox (Err.Description) 
        Resume Next 
End Sub

Confira também

Membros do objeto CustomXMLParts

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