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