Денис _______________

Dim Wd As Object, Wapp As Object 
            Let Shablon = ThisWorkbook.Path + "\Шаблоны аддонов\" + WorldShablonFileName
            Let ИмяФайла =  ThisWorkbook.Path + "\" + "Имя файла.docx"

            Rem -= копируем шаблон по новому пути =-
            Set Wapp = CreateObject("Word.Application"): AppWord.Visible = False
            Set Wd = Wapp.Documents.Open(Shablon, ReadOnly:=True)
                Wd.SaveAs Filename:=ИмяФайла, FileFormat:=wdFormatXMLDocument
                Wd.Close False: Set Wd = Nothing