A family of Microsoft word processing software products for creating web, email, and print documents.
Dim strTemplatePath As String
strTemplatePath = ActiveDocument.AttachedTemplate.Path & _
Application.PathSeparator & _
ActiveDocument.AttachedTemplate
MsgBox strTemplatePath