CustomXMLParts.Add method (Office)

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

Sintaxe

expressão. Adicionar (XML, SchemaCollection)

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

Parâmetros

Valor de retorno

CustomXMLPart

Exemplo

O exemplo seguinte adiciona uma nova CustomXMLPart, seleciona uma PeçaXML Personalizada com um critério de pesquisa e, em seguida, 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.