Метод Application.OrganizerCopy (Word)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

Пример

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

Dim atEntry As AutoTextEntry 
 
For Each atEntry In _ 
 ActiveDocument.AttachedTemplate.AutoTextEntries 
 Application.OrganizerCopy _ 
 Source:=ActiveDocument.AttachedTemplate.FullName, _ 
 Destination:=NormalTemplate.FullName, Name:=atEntry.Name, _ 
 Object:=wdOrganizerObjectAutoText 
Next atEntry

Если стиль с именем "SubText" существует в активном документе, в этом примере стиль копируется в папку C:\Templates\Template1.dot.

Dim styleLoop As Style 
 
For Each styleLoop In ActiveDocument.Styles 
 If styleLoop = "SubText" Then 
 Application.OrganizerCopy Source:=ActiveDocument.Name, _ 
 Destination:="C:\Templates\Template1.dot", _ 
 Name:="SubText", _ 
 Object:=wdOrganizerObjectStyles 
 End If 
Next styleLoop

См. также

Объект Application

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

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