Document.AttachedTemplate (Word)

Devuelve un objeto Template que representa la plantilla adjunta al documento especificado.

Para establecer esta propiedad, especifique el nombre de la plantilla o una expresión que devuelva un objeto Template .

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