Ответ подсказал Антон Кокин
Dim Имя_шаблона_с_которого_открыт_активный_документ As Variant
Set Имя_шаблона_с_которого_открыт_активный_документ = ActiveDocument.AttachedTemplate
Dim Место_нахождения_шаблона_с_которого_открыт_активный_документ As String 'объявление переменной типа строковая переменная - As String
Место_нахождения_шаблона_с_которого_открыт_активный_документ = Имя_шаблона_с_которого_открыт_активный_документ.Path & Application.PathSeparator 'Application.PathSeparator - это наклонная
Dim Место_нахождения_шаблона_с_которого_открыт_активный_документ_Имя_шаблона_с_которого_открыт_активный_документ As String 'объявление переменной типа строковая переменная - As String
Место_нахождения_шаблона_с_которого_открыт_активный_документ_Имя_шаблона_с_которого_открыт_активный_документ = Имя_шаблона_с_которого_открыт_активный_документ.Path & Application.PathSeparator & Имя_шаблона_с_которого_открыт_активный_документ.Name 'Application.PathSeparator - это наклонная