Deletes the current CustomXMLPart from the data store ( IXMLDataStore interface).
expression. Delete
expression An expression that returns a CustomXMLPart object.
If you attempt to delete the part containing the core properties, the operation is not performed and an error message is displayed.
The following example adds a custom XML part, select a node with a criteria, and delete the part and node.
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