Word VBA教程:OrganizerRename方法

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

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

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

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

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

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

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

WdOrganizerObject 可以是下列 WdOrganizerObject 常量之一:
wdOrganizerObjectAutoText
wdOrganizerObjectCommandBars
wdOrganizerObjectProjectItems
wdOrganizerObjectStyles

VBA示例

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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号