Freigeben über


CustomXMLPart.AddNode-Methode (Office)

Fügt der XML-Struktur einen Knoten hinzu.

Syntax

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

Ausdruck Ein Ausdruck, der ein CustomXMLPart-Objekt zurückgibt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Parent Erforderlich CustomXMLNode Stellt den Knoten dar, unter dem dieser Knoten hinzugefügt werden soll. Wenn ein Attribut hinzugefügt wird, gibt der Parameter das Element an, dem das Attribut hinzugefügt werden soll.
Name Optional String Stellt den Basisnamen des hinzuzufügenden Knotens dar.
NamespaceURI Optional String Stellt den Namespace des anzufügenden Elements dar. Dieser Parameter ist erforderlich, um Knoten vom Typ msoCustomXMLNodeElement oder msoCustomXMLNodeAttribute anzufügen. andernfalls wird sie ignoriert.
NextSibling Optional CustomXMLNode Stellt den Knoten der nächsten gleichgeordneten Knoten des neuen Knotens werden soll. Wenn nicht angegeben, wird der Knoten am Ende der übergeordneten Knoten untergeordnete Elemente hinzugefügt. Dieser Parameter ist für Ergänzungen der Typ MsoXMLNodeAttribute ignoriert. Wenn der Knoten nicht um ein untergeordnetes Element des übergeordneten Objekts ist, wird ein Fehler angezeigt.
NodeType Optional MsoCustomXMLNodeType Gibt den Typ des Knotens, angefügt werden soll. Wenn der Parameter nicht angegeben ist, wird angenommen, dass vom Typ MsoCustomXMLNodeElement sein.
NodeValue Optional String Wird zum Festlegen des Werts des angefügten Knotens für die Knoten verwendet, die Text zulassen. Lässt der Knoten keinen Text zu, wird der Parameter ignoriert.

HinwBemerkungeneise

Wenn der AddNode -Vorgang in einer ungültigen Struktur führen würde, die Anfügung nicht ausgeführt, und eine Fehlermeldung wird angezeigt.

Beispiel

Im folgenden Beispiel wird einem CustomXMLPart -Objekt ein Knoten hinzugefügt.

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

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.