Método CustomXMLPart.AddNode (Office)

Agrega un nodo al árbol XML.

Sintaxis

expresión. AddNode (Parent, Name, NamespaceURI, NextSibling, NodeType, NodeValue)

Expresión Expresión que devuelve un objeto CustomXMLPart .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Parent	Obligatorio	CustomXMLNode	Representa el nodo bajo el que se debe agregar este nodo. Si se agrega un atributo, el parámetro denota el elemento al que se debe agregar dicho atributo.
Name	Opcional	String	Representa el nombre base del nodo que se va a agregar.
NamespaceURI	Opcional	String	Representa el espacio de nombres del elemento que se va a anexar. Este parámetro es necesario para anexar nodos de tipo msoCustomXMLNodeElement o msoCustomXMLNodeAttribute; De lo contrario, se omite.
NextSibling	Opcional	CustomXMLNode	Representa el nodo que debe convertirse en el siguiente elemento del mismo nivel del nuevo nodo. Si no se especifica, el nodo se agrega al final de los elementos secundarios del nodo primario. Este parámetro se omite para adiciones de tipo msoXMLNodeAttribute. Si el nodo no es un elemento secundario del elemento primario, se muestra un error.
NodeType	Opcional	MsoCustomXMLNodeType	Especifica el tipo de nodo que se anexará. Si no se especifica el parámetro, se supone que es del tipo msoCustomXMLNodeElement.
NodeValue	Opcional	String	Se utiliza para establecer el valor del nodo anexado para aquellos nodos que permiten texto. Si el nodo no permite texto, se omite el parámetro.

Comentarios

Si la operación AddNode diese como resultado una estructura de árbol no válida, la anexión no se lleva a cabo y se muestra un mensaje de error.

Ejemplo:

El ejemplo siguiente se muestra cómo agregar un nodo a un 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

Consulte también

• Miembros del objeto CustomXMLPart

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.