Freigeben über


CustomXMLNode.ReplaceChildSubtree-Methode (Office)

Entfernt den angegebenen Knoten (und dessen Unterstruktur) aus der Hauptstruktur und ersetzt ihn an derselben Stelle durch eine andere Unterstruktur.

Syntax

Ausdruck. ReplaceChildSubtree(XML, OldNode)

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

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
XML Erforderlich String Stellt die hinzuzufügende Unterstruktur dar.
OldNode Erforderlich CustomXMLNode Stellt den unterordneten Knoten dar, der ersetzt werden soll.

HinwBemerkungeneise

Wenn der Vorgang zu einer ungültigen Struktur führen würde, wird das Ersetzen nicht ausgeführt, und eine Fehlermeldung wird angezeigt.

Beispiel

Im folgenden Beispiel wird eine benutzerdefinierte Komponente und anschließend ein Knoten in dieser Komponente ausgewählt. Der Code ersetzt dann eine Unterstruktur dieses Knotens durch eine andere Unterstruktur

Dim cxp1 As CustomXMLPart 
Dim cxn As CustomXMLNode 
 
With ActiveDocument 
 
    ' Return the first custom xml part with the given root namespace. 
    Set cxp1 = .CustomXMLParts("urn:invoice:namespace")     '  
         
    ' Get node using XPath expression.                              
    Set cxn = cxp1.SelectSingleNode("//*[@supplierID = 1]")  
 
    ' Replace one subtree and its children with another. 
   cxn.ReplaceChildSubtree("<rebates><rebate>0.10</rebate></rebates>", "//discounts")   
                 
 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.