Document.AttachedTemplate (Word)

Retorna um objeto Template que representa o modelo anexado ao documento especificado. de leitura/gravação.

Para definir essa propriedade, especifique o nome do modelo ou uma expressão que retorne um objeto Template .

Set myTemplate = ActiveDocument.AttachedTemplate 
MsgBox myTemplate.Path & Application.PathSeparator _ 
 & myTemplate.Name