Développer Réduire
Cet article a fait l'objet d'une traduction automatique. Déplacez votre pointeur sur les phrases de l'article pour voir la version originale de ce texte.
Traduction
Source

Application.Templates, propriété (Word)

Office 2013

Renvoie une collection Templates qui représente tous les modèles disponibles — modèles globaux et ceux attachés aux documents ouverts.

expression .Templates

expression Expression qui renvoie un objet Application .

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir Renvoi d’un objet à partir d’une collection.

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 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
Afficher:
© 2015 Microsoft