(Office) 的 CustomXMLPart.Delete 方法

從IXMLDataStore介面) (資料存放區中刪除目前的CustomXMLPart。

語法

運算式。刪除

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

註解

如果您嘗試刪除含有核心屬性的組件，則不會執行操作，並且會顯示錯誤訊息。

範例

下列範例會新增自訂 XML 元件、選取具有準則的節點，以及刪除元件和節點。

Sub ShowCustomXmlParts() 
    On Error GoTo Err 
 
    Dim cxp1 As CustomXMLPart 
    Dim cxn As CustomXMLNode 
 
    With ActiveDocument 
        ' Example written for Word. 
 
        ' Add and then load from a file. 
        Set cxp1 = .CustomXMLParts.Add 
        cxp1.Load "c:\invoice.xml" 
 
        Set cxn = cxp1.SelectSingleNode("//*[@quantity < 4]")  
        ' Insert a subtree before the single node selected previously. 
        cxn.InsertSubTreeBefore("<discounts><discount>0.10</discount></discounts>")   
               
        ' Delete custom XML part. 
        cxp1.Delete 
        cxn.Delete 
                 
    End With 
     
    Exit Sub 
                 
' Exception handling. Show the message and resume. 
Err: 
        MsgBox (Err.Description) 
        Resume Next 
End Sub

另請參閱

• CustomXMLPart 物件成員

支援和意見反應

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