CustomXMLNode.InsertNodeBefore-Methode (Office)
Fügt direkt vor dem Kontextknoten in der Struktur einen neuen Knoten ein.
Syntax
Ausdruck. InsertNodeBefore(Name, NamespaceURI, NodeType, NodeValue, NextSibling)
Ausdruck Ein Ausdruck, der ein CustomXMLNode-Objekt zurückgibt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Name | Optional | String | Stellt den Basisnamen des hinzuzufügenden Knotens dar. |
NamespaceURI | Optional | String | Stellt den Namespace des hinzuzufügenden Elements dar. Dieser Parameter ist erforderlich, wenn Knoten vom Typ msoCustomXMLNodeElement oder msoCustomXMLNodeAttribute hinzugefügt werden. andernfalls wird sie ignoriert. |
NodeType | Optional | MsoCustomXMLNodeType | Gibt den Typ des hinzuzufügenden Knotens an. Wenn der Parameter nicht angegeben ist, wird angenommen, ein Knoten Typ MsoCustomXMLNodeElement sein. |
NodeValue | Optional | String | Wird zum Festlegen des Werts des hinzugefügten Knotens für die Knoten verwendet, die Text zulassen. Lässt der Knoten keinen Text zu, wird der Parameter ignoriert. |
NextSibling | Optional | CustomXMLNode | Stellt den Kontextknoten dar. |
HinwBemerkungeneise
Ist der Kontextknoten nicht vorhanden ist, wenn einen Knoten vom Typ MsoCustomXMLNodeElement, MsoCustomXMLNodeComment oder MsoCustomXMLNodeProcessingInstruction hinzufügen, wird der neue Knoten zum letzten untergeordneten Knoten des Kontextknotens hinzugefügt. Wenn der Vorgang zu einer ungültigen Struktur führen würde, die Einfügemarke nicht ausgeführt, und eine Fehlermeldung wird angezeigt.
Beispiel
Im folgenden Beispiel wird eine benutzerdefinierte Komponente hinzugefügt und anschließend mithilfe eines XPath-Ausdrucks nach einem Knoten in dieser Komponente gesucht. Der Code fügt dann einen Knoten vor dem gefundenen Knoten ein.
Dim cxp1 As CustomXMLPart
Dim cxn As CustomXMLNode
With ActiveDocument
' Add a custom xml part.
.CustomXMLParts.Add "<invoice>"
' Returns the first custom xml part with the given root namespace.
Set cxp1 = .CustomXMLParts("urn:invoice:namespace")
' Get node using XPath.
Set cxn = cxp1.SelectSingleNode("//*[@supplier = "Contoso"]")
' Insert a node before the single node selected previously.
cxn.InsertNodeBefore("discount", "urn:invoice:namespace")
End With
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.