Método Application.OrganizerRename (Word)

Cambia el nombre del estilo, el elemento de Autotexto, la barra de herramientas o la macro seleccionados en un documento o una plantilla.

Sintaxis

expresión. OrganizerRename( _Source_ , _Name_ , _NewName_ , _Object_ )

expresión necesaria. 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 al que desee cambiar el nombre.
Name	Obligatorio	String	Nombre del estilo, elemento de Autotexto, barra de herramientas o macro a los que desee cambiar el nombre.
NewName	Obligatorio	String	Nuevo nombre del elemento.
Object	Obligatorio	WdOrganizerObject	Tipo de elemento que se desea copiar.

Ejemplo

En este ejemplo se cambia el nombre del estilo denominado "SubText" del documento activo a "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

En este ejemplo se cambia el nombre del módulo de macro denominado "Module1" de la plantilla adjunta a "Macros1".

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

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.