CustomXMLNode.HasChildNodes-Methode (Office)
Gibt True zurück, wenn der aktuelle Elementknoten untergeordnete Elementknoten aufweist.
Syntax
Ausdruck. HasChildNodes
Ausdruck Ein Ausdruck, der ein CustomXMLNode-Objekt zurückgibt.
Rückgabewert
Boolesch
Bemerkungen
Diese Methode gibt immer False zurück, wenn CustomXMLNode nicht vom Knotentyp msoCustomXMLNodeElement ist.
Beispiel
Das folgende Beispiel veranschaulicht die Verwendung verschiedener Methoden zum Hinzufügen benutzerdefinierter XML-Teile, Auswählen von Teilen und Knoten mit unterschiedlichen Kriterien, Anfügen untergeordneter Unterstrukturen, Testen, ob die Unterstruktur erfolgreich hinzugefügt wurde, und Löschen von Teilen und Knoten.
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 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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für