Método Application.OrganizerDelete (Word)

Exclui o estilo, a entrada de AutoTexto, a barra de ferramentas ou a macro especificada de um documento ou modelo.

Sintaxe

expression. OrganizerDelete( _Source_ , _Name_ , _Object_ )

expressão Obrigatório. Uma variável que representa um objeto Application.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Source	Obrigatório	String	O nome de arquivo do documento ou modelo que contenha o item que você deseja excluir.
Name	Obrigatório	String	O nome do estilo, entrada de AutoTexto, barra de ferramentas ou macro que você deseja excluir.
Object	Obrigatório	WdOrganizerObject	O tipo de item que você deseja copiar.

Exemplo

Este exemplo exclui a barra de ferramentas chamada "Custom 1" do modelo Normal.

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

Este exemplo pergunta se o usuário deseja excluir cada entrada de AutoTexto do modelo anexado ao documento ativo. Se o usuário clicar no botão Sim, as entradas de AutoTexto serão excluídas.

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

Confira também

Objeto de Aplicativo

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.