Вставка текста из Excel в Word - VBA - Ответ 3664722

Sub Procedure_1()
    
    'Здесь нужно указать путь, где находится шаблон.
    Const sTemplatePath As String = "C:\Users\User\Desktop\template.doc"
 
    'Здесь нужно указать путь, где должен быть новый документ.
    Const sNewDocumentPath As String = "C:\Users\User\Desktop\FileName.doc"
    
    'Здесь нужно указать имя закладки, которая находится в шаблоне Word.
    'В эту закладку будет вставляться текст из книги Excel.
    Const sBookmark_1 As String = "Закладка_1"
    
    Dim oDocument As Word.Document
    
    'Создаём документ на основе шаблона.
    FileCopy Source:=sTemplatePath, Destination:=sNewDocumentPath
    
    'Открываем новый документ, чтобы занести в него данные из Excel.
    Set oDocument = Documents.Open(FileName:=sNewDocumentPath, Visible:=False)
    
    'Вставка в закладку текста.
    oDocument.Bookmarks(sBookmark_1).Range.Text = "text"
    
    'Удаление закладки, чтобы закладки не приводили пользователей в замешательство.
    oDocument.Bookmarks(1).Delete
    
    'Закрываем новый документ с сохранением.
    oDocument.Close SaveChanges:=-1
 
End Sub