Application.Templates (Word)

Devuelve una colección templates que representa todas las plantillas disponibles: las globales y las adjuntas a los documentos abiertos.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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