Word) (Application.OrganizerRename 方法

重新命名文件或範本中的指定樣式、自動圖文集項目、工具列或巨集專案項目。

語法

運算式。 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 支援與意見反應。