Método Application.OrganizerCopy (Word)

Copia el elemento de Autotexto, la barra de herramientas, el estilo o la macro especificados desde el documento o la plantilla de origen al documento o plantilla de destino.

Sintaxis

expresión. OrganizerCopy( _Source_ , _Destination_ , _Name_ , _Object_ )

expresión requerida. Variable que representa un objeto Application.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Source	Obligatorio	String	Nombre del archivo del documento o de la plantilla que contiene el elemento que se desea copiar.
Destination	Obligatorio	String	Nombre del archivo del documento o de la plantilla al que se desea copiar un elemento.
Name	Obligatorio	String	Nombre del elemento de Autotexto, barra de herramientas, estilo o macro que se desea copiar.
Object	Obligatorio	WdOrganizerObject	Tipo de elemento que se desea copiar.

Ejemplo:

En este ejemplo se copian a la plantilla Normal todos los elementos de Autotexto de la plantilla adjunta al documento activo.

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

Si existe el estilo denominado "SubText" en el documento activo, en este ejemplo se copia el estilo a 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

Vea también

Objeto Application

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.