Application.OrganizerCopy-Methode (Word)
Kopiert den angegebenen AutoText-Eintrag, die Symbolleiste, Formatvorlage oder das Makroprojektelement aus dem Quelldokument oder der Quellvorlage in das Zieldokument bzw. in die Zielvorlage.
Syntax
Ausdruck. OrganizerCopy( _Source_ , _Destination_ , _Name_ , _Object_ )
Ausdruck: Erforderlich. Eine Variable, die ein Application -Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Source | Erforderlich | String | Der Name des Dokuments oder der Vorlagendatei, die das zu kopierende Element enthält. |
| Ziel | Erforderlich | String | Der Name des Dokuments oder der Vorlagendatei, in den das Element kopiert werden soll. |
| Name | Erforderlich | String | Der Name des zu kopierenden Elements (AutoText-Eintrag, Symbolleiste, Formatvorlage oder Makro). |
| Objekt | Erforderlich | WdOrganizerObject | Der Objekttyp, der kopiert werden soll. |
Beispiel
In diesem Beispiel werden alle AutoText-Einträge der mit dem aktiven Dokument verbundenen Vorlage in die Vorlage Normal kopiert.
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
Im folgenden Beispiel wird die Formatvorlage nach C:\Templates\Template1.dot kopiert, sofern die Formatvorlage SubText im aktiven Dokument vorhanden ist.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.