Método Application.OrganizerRename (Word)

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

Sintaxe

expression. OrganizerRename( _Source_ , _Name_ , _NewName_ , _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 contém o item que você deseja renomear.
Name	Obrigatório	String	O nome do estilo, da entrada de AutoTexto, da barra de ferramentas ou da macro que você deseja renomear.
Newname	Obrigatório	String	O novo nome para o item.
Object	Obrigatório	WdOrganizerObject	O tipo de item que você deseja copiar.

Exemplo

Este exemplo altera o nome do estilo chamado "SubText" no documento ativo para "SubText2".

Dim styleLoop as Style 
 
For Each styleLoop In ActiveDocument.Styles 
 If styleLoop.NameLocal = "SubText" Then 
 Application.OrganizerRename _ 
 Source:=ActiveDocument.Name, Name:="SubText", _ 
 NewName:="SubText2", _ 
 Object:=wdOrganizerObjectStyles 
 End If 
Next styleLoop

Este exemplo altera para "Macros1" o nome do módulo de macro chamado "Module1" no modelo anexado.

Dim dotTemp As Template 
 
dotTemp = ActiveDocument.AttachedTemplate.Name 
Application.OrganizerRename Source:=dotTemp, Name:="Module1", _ 
 NewName:="Macros1", Object:=wdOrganizerObjectProjectItems

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.