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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。