Метод Application.OrganizerDelete (Word)

Статья
04/07/2023

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

Синтаксис

выражение. 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 и обратная связь.

Поделиться через