Application.OrganizerRename Method (Word)
Renames the specified style, AutoText entry, toolbar, or macro project item in a document or template.
Syntax
expression .OrganizerRename(Source, Name, NewName, Object)
expression Required. A variable that represents an Application object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
Source |
Required |
String |
The file name of the document or template that contains the item you want to rename. |
Name |
Required |
String |
The name of the style, AutoText entry, toolbar, or macro you want to rename. |
NewName |
Required |
String |
The new name for the item. |
Object |
Required |
WdOrganizerObject |
The kind of item you want to copy. |
Example
This example changes the name of the style named "SubText" in the active document to "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
This example changes the name of the macro module named "Module1" in the attached template to "Macros1."
Dim dotTemp As Template
dotTemp = ActiveDocument.AttachedTemplate.Name
Application.OrganizerRename Source:=dotTemp, Name:="Module1", _
NewName:="Macros1", Object:=wdOrganizerObjectProjectItems