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
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.