Метод Application.OrganizerRename (Word)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

Пример

В этом примере имя стиля с именем "SubText" в активном документе изменяется на "SubText2".

Dim styleLoop as Style 
 
For Each styleLoop In ActiveDocument.Styles 
 If styleLoop.NameLocal = "SubText" Then 
 Application.OrganizerRename _ 
 Source:=ActiveDocument.Name, Name:="SubText", _ 
 NewName:="SubText2", _ 
 Object:=wdOrganizerObjectStyles 
 End If 
Next styleLoop

В этом примере имя модуля макроса с именем Module1 в присоединенном шаблоне изменяется на Macros1.

Dim dotTemp As Template 
 
dotTemp = ActiveDocument.AttachedTemplate.Name 
Application.OrganizerRename Source:=dotTemp, Name:="Module1", _ 
 NewName:="Macros1", Object:=wdOrganizerObjectProjectItems

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.