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