Document.AttachedTemplate (Word)

Returns a Template template that represents the template attached to the specified document. Read/write Variant.

To set this property, specify either the name of the template or an expression that returns a Template object.

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