Application.OrganizerDelete метод (Word)

Удаляет из документа или шаблона указанный стиль, элемент автотекста, панель инструментов или элемент проекта макроса.

Синтаксис

выражение. OrganizerDelete( _Source_ , _Name_ , _Object_ )

выражение (обязательно). Переменная, представляющая объект Application .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Source	Обязательный	String	Имя файла документа или шаблона, который содержит элемент, который нужно удалить.
Name	Обязательный	String	Имя стиля, элемент автотекста, панель инструментов или макрос, который требуется удалить.
Object	Обязательный	WdOrganizerObject	Тип копируемого элемента.

Пример

В этом примере панель инструментов с именем "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 и обратная связь.