Question

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

expression.OrganizerRename(Source,Name,NewName,Object)

expression 必需。该表达式返回一个 Application 对象。

Source String 类型，必需。含有需要重新命名的项目的文档或模板的名称。

Name String 类型，必需。为需要重新命名的样式、“自动图文集”词条、工具栏或宏的名称。

NewName String 类型，必需。项目的新名称。

Object WdOrganizerObject，必需。需要复制的项目类型。

WdOrganizerObject 可以是下列 WdOrganizerObject 常量之一：

wdOrganizerObjectAutoText

wdOrganizerObjectCommandBars

wdOrganizerObjectProjectItems

wdOrganizerObjectStyles

示例

本示例将活动文档中名为“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