Método Application.OrganizerDelete (Word)

Artículo
04/07/2023

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

Objeto Application

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.