Méthode Application.OrganizerCopy (Word)

Copie l'insertion automatique, la barre d'outils, le style ou l'élément de projet de macro spécifié du document ou modèle source vers le document ou modèle cible.

Syntaxe

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

expression Obligatoire. Variable qui représente un objet Application.

Parameters

Nom	Requis/Facultatif	Type de données	Description
Source	Obligatoire	Chaîne	Nom de fichier du document ou modèle contenant l'élément que vous voulez copier.
Destination	Obligatoire	Chaîne	Nom de fichier du document ou modèle dans lequel vous voulez copier l'élément.
Name	Obligatoire	Chaîne	Nom de l'insertion automatique, de la barre d'outils, du style ou de la macro que vous voulez copier.
Object	Obligatoire	WdOrganizerObject	Type de l'élément à copier.

Exemple

Cet exemple montre comment copier dans le modèle Normal l'ensemble des insertions automatiques contenues dans le modèle associé au document actif.

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 un style appelé « SubText » existe dans le document actif, cet exemple montre comment le copier dans 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

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.