HasChildNodes 方法 (Office) CustomXMLNodeCustomXMLNode.HasChildNodes method (Office)

如果当前元素节点包含子元素节点,则获取 TrueGets True if the current element node has child element nodes.



_表达式_一个返回**CustomXMLNode** 对象的表达式。expression An expression that returns a CustomXMLNode object.

返回值Return value



CustomXMLNode不是节点类型**msoCustomXMLNodeElement** 时, 此方法将始终返回FalseThis method will always return False when CustomXMLNode isn't of node type msoCustomXMLNodeElement.


下面的示例演示了如何使用各种方法添加自定义 XML 部件、使用不同的标准选择部件和节点、附加子树、测试子树是否已成功添加以及删除部件和节点。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. 
         ' Tell user that the child subtree was added. 
         If  cxn.HasChildNodes then 
            MsgBox("The 'Discounts' nodes were added.")  
            MsgBox("The 'Discounts' nodes were not added.")  
         End If          
        ' Delete custom XML part and node and its children. 
    End With 
    Exit Sub 
' Exception handling. Show the message and resume. 
        MsgBox (Err.Description) 
        Resume Next 
End Sub 

另请参阅See also

支持和反馈Support and feedback

有关于 Office VBA 或本文档的疑问或反馈?Have questions or feedback about Office VBA or this documentation? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.