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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。