OrganizerRename 方法

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

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