Compartir a través de

Método CustomXMLPart.Delete (Office)

  • Artículo

Elimina el objeto CustomXMLPart actual del almacén de datos (interfaz IXMLDataStore ).

Sintaxis

expresión. Eliminar

Expresión Expresión que devuelve un objeto CustomXMLPart .

Comentarios

Si intenta eliminar el fragmento que contiene las propiedades principales, no se realiza la operación y se muestra un mensaje de error.

Ejemplo:

En el ejemplo siguiente se agrega un elemento XML personalizado, se selecciona un nodo con un criterio y se elimina la parte y el nodo.

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

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.