共用方式為

Office) (CustomXMLParts.Add 方法

  • 發行項

可讓您將新的 CustomXMLPart 新增至檔案。

語法

運算式。新增 (XML、 SchemaCollection)

表達 會傳回 CustomXMLParts 物件的 運算式。

參數

名稱 必要/選用 資料類型 描述
XML 選用 String 含有要新增至新建立之 CustomXMLPart 的 XML。
SchemaCollection 選用 CustomXMLSchemaCollection 代表要用於驗證這個資料流的一組結構描述。

傳回值

CustomXMLPart

範例

下列範例會新增 CustomXMLPart、使用搜尋準則選取 CustomXMLPart ，然後從該元件中選取單一節點。

Sub ShowCustomXmlParts() 
    On Error GoTo Err 
 
    Dim cxp1 As CustomXMLPart 
 
    Dim cxn As CustomXMLNode 
    Dim cxns As CustomXMLNodes 
    Dim strXml As String 
    Dim strUri As String 
 
        ' Example written for Word. 
 
        ' Add a custom XML part. 
        ActiveDocument.CustomXMLParts.Add "<custXMLPart />" 
 
        ' Returns the first custom XML part with the given root namespace. 
        Set cxp1 = ActiveDocument.CustomXMLParts("urn:invoice:namespace")         
 
        ' Get a node using XPath.                              
        Set cxn = cxp1.SelectSingleNode("//*[@quantity < 4]")  
     
    Exit Sub 
                 
' Exception handling. Show the message and resume. 
Err: 
        MsgBox (Err.Description) 
        Resume Next 
End Sub

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。