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

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。