Application.OrganizerRename 方法 (Word)

重新命名文档或模板中指定的样式、“自动图文集”词条、工具栏或宏方案项。

语法

expression。 OrganizerRename( _Source_ , _Name_ , _NewName_ , _Object_ )

expression 是必需的。 一个代表 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Source	必需	String	含有需要重新命名的项目的文档或模板的名称。
Name	必需	String	要重命名的样式、"自动图文集"词条、工具栏或宏的名称。
NewName	必需	String	项目的新名称。
Object	必需	WdOrganizerObject	要复制的项目的类型。

示例

本示例将活动文档中名为"SubText"的样式改为"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

本示例将附加模板中名为"Module1"的宏改为"Macros1"。

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

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。