Application.Templates (Word)

Returns a Templates collection that represents all the available templates—global templates and those attached to open documents.

For information about returning a single member of a collection, see Returning an object from a collection.

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