从文档或模板中删除指定的样式、“自动图文集”词条、工具栏或宏方案项。
语法
表达式.OrganizerDelete(Source, Name,
Object)
表达式 必选。一个代表 Application 对象的变量。
参数
| 名称 |
必选/可选 |
数据类型 |
说明 |
| Source |
必选 |
String |
含有需要删除的条目的文档或模板的名称。 |
| Name |
必选 |
String |
要删除的样式、“自动图文集”词条、工具栏或宏的名称。 |
| Object |
必选 |
WdOrganizerObject |
要复制的项目的类型。 |
示例
本示例将从 Normal 模板中删除名为“Custom 1”的工具栏。
| 示例代码 |
for(let i=1; i <= CommandBars.Count; i++) {
if(CommandBars.Item(i).Name == "Custom 1") {
Application.OrganizerDelete(NormalTemplate.Name,"Custom 1",wdOrganizerObjectCommandBars)
}
}
|
本示例提示用户删除活动文档的相关模板中的每一个“自动图文集”词条。如果用户单击“确定”按钮，则将删除“自动图文集”词条。
| 示例代码 |
let intResponse
let temp = ActiveDocument.AttachedTemplate
let atEntry = ActiveDocument.AttachedTemplate.AutoTextEntries
for(let i=1; i <= atEntry.Count; i++) {
intResponse = MsgBox("Do you want to delete the " + atEntry.Item(i).Name + " AutoText entry?", jsYesNoCancel)
if(intResponse == jsResultYes) {
Application.OrganizerDelete(temp.Path + "\\" + temp.Name,atEntry.Item(i).Name,wdOrganizerObjectAutoText)
}
if(intResponse == jsResultCancel ) {
break
}
}
|