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

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

Count = 1 
For Each aTemplate In Templates 
 MsgBox aTemplate.Name & " is template number " & Count 
 Count = Count + 1 
Next aTemplate