Application.OrganizerDelete 方法 (Word)

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

语法

expression. OrganizerDelete( _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 支持和反馈,获取有关如何接收支持和提供反馈的指南。