Propriété Application.Templates (Word)
Renvoie une collection Templates qui représente tous les modèles disponibles modèles globaux et ceux attachés aux documents ouverts.
Syntaxe
expression. Templates
Expression Expression qui renvoie un objet Application .
Remarques
Pour plus d’informations sur le renvoi d’un seul membre d’une collection, consultez Renvoi d’un objet à partir d’une collection.
Exemple
Cet exemple montre comment afficher le nom de chaque modèle de la collection Templates.
Count = 1
For Each aTemplate In Templates
MsgBox aTemplate.Name & " is template number " & Count
Count = Count + 1
Next aTemplate
Dans cet exemple, si le modèle 1 est un modèle global, son chemin d’accès est stocké dans thePath. L'instruction ChDir est utilisée pour faire du dossier dont le chemin d'accès stocké dans thePath du dossier actif. Lorsque cette modification est effective, la boîte de dialogue Ouvrir s'affiche.
If Templates(1).Type = wdGlobalTemplate Then
thePath = Templates(1).Path
If thePath <> "" Then ChDir thePath
Dialogs(wdDialogFileOpen).Show
End If
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.