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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。