共用方式為


(Word) 的 Application.OrganizerDelete 方法

從文件或範本中刪除指定的樣式、自動圖文集項目、工具列或巨集專案項目。

語法

expressionOrganizerDelete( _Source_ , _Name_ , _Object_ )

需要 expression。 代表 Application 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Source 必要 String 含有您想要刪除之項目的文件或範本檔案名稱。
Name 必要 String 您想要刪除之樣式、自動圖文集項目、工具列或巨集的名稱。
Object 必要 WdOrganizerObject 您想要複製的項目類型。

範例

這則範例會從 Normal 範本中刪除名為 "Custom 1" 的工具列。

Dim cbLoop As CommandBar 
 
For Each cbLoop In CommandBars 
 If cbLoop.Name = "Custom 1" Then 
 Application.OrganizerDelete Source:=NormalTemplate.Name, _ 
 Name:="Custom 1", _ 
 Object:=wdOrganizerObjectCommandBars 
 End If 
Next cbLoop

這則範例會提示使用者,是否要刪除附加至使用中文件之範本內的每個自動圖文集項目。 如果使用者按一下 [是] 按鈕,就會刪除自動圖文集項目。

Dim atEntry As AutoTextEntry 
Dim intResponse As Integer 
 
For Each atEntry In _ 
 ActiveDocument.AttachedTemplate.AutoTextEntries 
 intResponse = _ 
 MsgBox("Do you want to delete the " & atEntry.Name _ 
 & " AutoText entry?", vbYesNoCancel) 
 If intResponse = vbYes Then 
 With ActiveDocument.AttachedTemplate 
 Application.OrganizerDelete _ 
 Source:= .Path & "\" & .Name, _ 
 Name:=atEntry.Name, _ 
 Object:=wdOrganizerObjectAutoText 
 End With 
 ElseIf intResponse = vbCancel Then 
 Exit For 
 End If 
Next atEntry

另請參閱

Application 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應