CustomXMLNode.AppendChildNode-Methode (Office)
Fügt einen einzelnen Knoten als letzten untergeordneten Knoten unter dem Kontextelementknoten in der Struktur an.
Syntax
Ausdruck. AppendChildNode(Name, NamespaceURI, NodeType, NodeValue)
Ausdruck Ein Ausdruck, der ein CustomXMLNode-Objekt zurückgibt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Name | Optional | String | Stellt den Basisnamen des anzufügenden Elements 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. |
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 Kontextknoten Typ msoXMLNodeElement ist oder wenn der Vorgang zu einer ungültigen Struktur führen würde, die Anfügung nicht wird ausgeführt, und eine Fehlermeldung wird angezeigt.
Beispiel
Im folgende Beispiel wird veranschaulicht, wie ein CustomXMLNode -Objekt zu einem anderen Knoten angefügt.
Sub AppendNode()
Dim cxp1 As CustomXMLPart
Dim cxn As CustomXMLNode
With ActiveDocument
' Add and populate a custom xml part
set cxp1 = .CustomXMLParts.Add "<invoice />"
' Add a node
cxp1.AddNode "/invoice", "upccode", "urn:invoice:namespace"
Set cxn = cxp1.SelectSingleNode("//*[@quantity < 4]")
' Append a child node to the single node selected previously.
cxn.AppendChildNode("discount", "urn:invoice:namespace", "string", "0.10")
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.