CustomXMLNode.InsertNodeBefore-Methode (Office)

  • Artikel

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.