Application.Templates (Word)

Retorna uma coleção templates que representa todos os modelos disponíveis — modelos globais e aqueles anexados a documentos abertos.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

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