CustomXMLNode. HasChildNodes-Methode (Office)CustomXMLNode.HasChildNodes method (Office)

Gibt True zurück, wenn der aktuelle Elementknoten untergeordnete Elementknoten aufweist.Gets True if the current element node has child element nodes.

SyntaxSyntax

Ausdruck. HasChildNodesexpression.HasChildNodes

Ausdruck Ein Ausdruck, der ein CustomXMLNode -Objekt zurückgibt.expression An expression that returns a CustomXMLNode object.

RückgabewertReturn value

BooleschBoolean

BemerkungenRemarks

Diese Methode gibt immer false zurück, wenn CustomXMLNode nicht vom Knotentyp msoCustomXMLNodeElement ist.This method will always return False when CustomXMLNode isn't of node type msoCustomXMLNodeElement.

BeispielExample

Das folgende Beispiel veranschaulicht die Verwendung verschiedener Methoden zum Hinzufügen von benutzerdefinierten XML-Komponenten, zum Auswählen von Teilen und Knoten mit unterschiedlichen Kriterien, zum Anfügen untergeordneter Teilstrukturen, zum Testen, ob die Unterstruktur erfolgreich hinzugefügt wurde, und zum Löschen von Teilen und Knoten.The following example demonstrates using various methods to add custom XML parts, select parts and nodes with different criteria, append child subtrees, test whether the subtree was successfully added, and delete parts and nodes.

Sub ShowCustomXmlParts() 
    On Error GoTo Err 
 
    Dim cxps As CustomXMLParts 
    Dim cxp1 As CustomXMLPart 
    Dim cxp2 As CustomXMLPart 
    Dim cxn As CustomXMLNode 
    Dim cxns As CustomXMLNodes 
    Dim strXml As String 
    Dim strUri As String 
 
    With ActiveDocument 
        ' Example written for Word. 
 
        ' Adding a custom XML part. 
        .CustomXMLParts.Add "<custXMLPart />" 
         
        ' Add and then load from a file. 
        Set cxp1 = .CustomXMLParts.Add 
        cxp1.Load "c:\invoice.xml" 
         
        ' Returns the first custom XML part with the given root namespace. 
        Set cxp2 = .CustomXMLParts("urn:invoice:namespace")     '  
         
        ' Access all with a given root namespace; returns the entire collection. 
        Set cxps = .CustomXMLParts.SelectByNamespace("urn:invoice:namespace") 
         
        ' DOM-type operations. 
        ' Get the XML. 
        strXml = cxp2.XML 
        ' Get the root namespace. 
        strUri = cxp2.NamespaceURI  
        ' Get nodes using XPath.                              
        Set cxn = cxp2.SelectSingleNode("//*[@quantity < 4]")  
        Set cxns = cxp2.SelectNodes("//*[@unitPrice > 20]") 
        ' Append a child subtree to the single node selected previously. 
        cxn.AppendChildSubtree("<discounts><discount>0.10</discount></discounts>")   
 
         ' Tell user that the child subtree was added. 
         If  cxn.HasChildNodes then 
            MsgBox("The 'Discounts' nodes were added.")  
         Else 
            MsgBox("The 'Discounts' nodes were not added.")  
         End If          
         
        ' Delete custom XML part and node and its children. 
        cxp2.Delete 
        cxn.Delete 
 
                 
    End With 
     
    Exit Sub 
                 
' Exception handling. Show the message and resume. 
Err: 
        MsgBox (Err.Description) 
        Resume Next 
End Sub 

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.