Método Application.OrganizerCopy (Word)

Artigo
04/07/2023

Copia a entrada de AutoTexto, barra de ferramentas ou a macro especificada do modelo ou documento de origem para o modelo ou documento de destino.

Sintaxe

expression. OrganizerCopy( _Source_ , _Destination_ , _Name_ , _Object_ )

expressão Obrigatório. Uma variável que representa um objeto Application.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Source	Obrigatório	String	O nome de arquivo do modelo ou documento que contenha o item que você deseja copiar.
Destination	Obrigatório	String	O nome de arquivo do modelo ou documento para o qual você deseja copiar um item.
Name	Obrigatório	String	O nome da entrada de AutoTexto, barra de ferramentas, estilo ou macro que você deseja copiar.
Object	Obrigatório	WdOrganizerObject	O tipo de item que você deseja copiar.

Exemplo

Este exemplo copia todas as entradas de AutoTexto do modelo anexado ao documento ativo para o modelo Normal.

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

Se o estilo chamado "SubText" existe no documento ativo, este exemplo copia o estilo para 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

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Compartilhar via