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

Application-Objekt

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.