Edit

CustomXMLPart.AddNode method (Office)

  • Article

Adds a node to the XML tree.

Syntax

expression.AddNode (Parent, Name, NamespaceURI, NextSibling, NodeType, NodeValue)

expression An expression that returns a CustomXMLPart object.

Parameters

Name Required/Optional Data type Description
Parent Required CustomXMLNode Represents the node under which this node should be added. If adding an attribute, the parameter denotes the element that the attribute should be added to.
Name Optional String Represents the base name of the node to be added.
NamespaceURI Optional String Represents the namespace of the element to be appended. This parameter is required to append nodes of type msoCustomXMLNodeElement or msoCustomXMLNodeAttribute; otherwise, it is ignored.
NextSibling Optional CustomXMLNode Represents the node which should become the next sibling of the new node. If not specified, the node is added to the end of the parent node's children. This parameter is ignored for additions of type msoXMLNodeAttribute. If the node is not a child of the parent, an error is displayed.
NodeType Optional MsoCustomXMLNodeType Specifies the type of node to append. If the parameter is not specified, it is assumed to be of type msoCustomXMLNodeElement.
NodeValue Optional String Used to set the value of the appended node for those nodes that allow text. If the node doesn't allow text, the parameter is ignored.

Remarks

If the AddNode operation would result in an invalid tree structure, the append is not performed and an error message is displayed.

Example

The following example demonstrates adding a node to a CustomXMLPart object.

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

See also

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.