Método Application.OrganizerRename (Word)

Artículo
04/07/2023

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 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 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.