Compartilhar via


Método CustomXMLPart.Delete (Office)

Exclui o CustomXMLPart atual do armazenamento de dados (interface IXMLDataStore ).

Sintaxe

expressão. Excluir

Expressão Uma expressão que retorna um objeto CustomXMLPart .

Comentários

Se você tentar excluir a parte contendo as principais propriedades, a operação não será realizada e uma mensagem de erro será exibida.

Exemplo

O exemplo a seguir adiciona uma parte XML personalizada, seleciona um nó com um critério e exclui a parte e o nó.

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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.