Método Application.OrganizerDelete (Word)
Elimina de un documento o una plantilla el estilo, el elemento de Autotexto, la barra de herramientas o la macro seleccionados.
Sintaxis
expresión. OrganizerDelete( _Source_ , _Name_ , _Object_ )
expresión requerida. Variable que representa un objeto Application.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Source | Obligatorio | String | Nombre del archivo del documento o de la plantilla que contiene el elemento que desee eliminar. |
| Name | Obligatorio | String | Nombre del estilo, elemento de Autotexto, barra de herramientas o macro que desee eliminar. |
| Object | Obligatorio | WdOrganizerObject | Tipo de elemento que se desea copiar. |
Ejemplo:
En este ejemplo se elimina de la plantilla Normal la barra de herramientas denominada "Custom 1".
Dim cbLoop As CommandBar
For Each cbLoop In CommandBars
If cbLoop.Name = "Custom 1" Then
Application.OrganizerDelete Source:=NormalTemplate.Name, _
Name:="Custom 1", _
Object:=wdOrganizerObjectCommandBars
End If
Next cbLoop
En este ejemplo se indica al usuario que elimine todos los elementos de Autotexto de la plantilla adjunta al documento activo. Si el usuario hace clic en el botón Sí, se eliminan los elementos de Autotexto.
Dim atEntry As AutoTextEntry
Dim intResponse As Integer
For Each atEntry In _
ActiveDocument.AttachedTemplate.AutoTextEntries
intResponse = _
MsgBox("Do you want to delete the " & atEntry.Name _
& " AutoText entry?", vbYesNoCancel)
If intResponse = vbYes Then
With ActiveDocument.AttachedTemplate
Application.OrganizerDelete _
Source:= .Path & "\" & .Name, _
Name:=atEntry.Name, _
Object:=wdOrganizerObjectAutoText
End With
ElseIf intResponse = vbCancel Then
Exit For
End If
Next atEntry
Vea 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.