为什么OrganizerRename 方法在word2016 vba里不能用

kky168

OrganizerRename 方法请参阅 应用于 示例 特性

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

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 StyleFor Each styleLoop In ActiveDocument.Styles    If styleLoop.NameLocal = "SubText" Then        Application.OrganizerRename _            Source:=ActiveDocument.Name, Name:="SubText", _            NewName:="SubText2", _            Object:=wdOrganizerObjectStyles    End IfNext styleLoop