onst ИмяФайлаШаблона = "Договор_ФЛ.doc"
Const РасширениеСоздаваемыхФайлов = ".doc"
Private Sub B_СфомироватьДоговор_Click()
On Error Resume Next
ПутьШаблона = Replace(ThisWorkbook.Path, ThisWorkbook.Name, ИмяФайлаШаблона)
НоваяПапка = NewFolderName & Application.PathSeparator
Dim WA As Word.Application, WD As Word.Document: Set WA = New Word.Application ' c подключением библиотеки Word
Set WA = CreateObject("Word.Application") ' без подключения библиотеки Word - почему-то замена не производится
ФИО = УдалитьПробелыДва(txt_ФИОЗаказчик)
Filename = НоваяПапка & ФИО & РасширениеСоздаваемыхФайлов
Set WD = WA.Documents.Add(ПутьШаблона): DoEvents
Bookmarks("Договор_номер").Range.Text = UserForm1.txt_№Договор.Value
DoEvents
WD.SaveAs Filename: WD.Close False: DoEvents
End Sub