Compartilhar via


Método CustomXMLPart.AddNode (Office)

Adiciona um nó a uma árvore XML.

Sintaxe

expressão. AddNode (Pai, Nome, NamespaceURI, NextSibling, NodeType, NodeValue)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Responsável Obrigatório CustomXMLNode Representa no nó ao qual esse nó será adicionado. Ao adicionar um atributo, o parâmetro denota o elemento ao qual o atributo deve ser adicionado.
Name Opcional String Representa o nome de base do nó a ser adicionado.
NamespaceURI Opcional String Representa o namespace do elemento a ser anexado. Esse parâmetro é necessário para acrescentar nós do tipo msoCustomXMLNodeElement ou msoCustomXMLNodeAttribute; caso contrário, ele é ignorado.
NextSibling Opcional CustomXMLNode Representa o nó ao qual deve se tornar o próximo nó irmão do novo nó. Se não especificado, o nó é adicionado ao final do filhos do nó pai. Esse parâmetro será ignorado para inclusões de tipo msoXMLNodeAttribute. Se o nó não é um filho do pai, um erro será exibido.
NodeType Opcional MsoCustomXMLNodeType Especifica o tipo de nó a ser anexado. Se o parâmetro não for especificado, presume-se para ser do tipo msoCustomXMLNodeElement.
NodeValue Opcional String Utilizado para definir o valor do nó anexado para os nós que permitem texto. Se o nó não permitir texto, o parâmetro será ignorado.

Comentários

Se a operação AddNode resultar em uma estrutura inválida de árvore, a ação de anexar não será realizada e será exibida uma mensagem de erro.

Exemplo

O exemplo a seguir demonstra como adicionar um nó a um objeto CustomXMLPart.

Sub AddNodeCustomXmlParts() 
 
    Dim cxp1 As CustomXMLPart 
    Dim cxn As CustomXMLNode 
     
    With ActiveDocument 
        ' Add and populate a custom xml part 
        Set cxp1 = .CustomXMLParts.Add("<invoice />") 
         
        ' Set the parent node  
        Set cxn = cxp1.SelectSingleNode("/invoice") 
         
        ' Add a node under the parent node 
        cxp1.AddNode cxn, "upccode", "urn:invoice:namespace" 
 
    End With 
     
End Sub

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.