Задача была, в экселе выбрать строку, макрос запустить, а он должен взять шаблон, туда всё подставить из ячеек, и чтобы сразу распечатывать потом.

Sub Export_to_Word()

    If vbOK = MsgBox("Номер строки: " & ActiveCell.Row, vbOKCancel) Then
    
        currentRow = ActiveCell.Row ' номер строки получили
        
        ' вынимаю содержимое ячеек
       
        firstName = Cells.Range("A" & currentRow).Text
        lastName = Cells.Range("B" & currentRow).Text
        age = Cells.Range("C" & currentRow).Text
        salary = Cells.Range("D" & currentRow).Text
        
        Dim appWord As Object
        Dim wordDoc As Object
        Set appWord = CreateObject("Word.Application")
        Set wordDoc = appWord.Documents.Open(ThisWorkbook.Path & "\pattern.doc") ' шаблон
        
        ' pattern.doc помечен "только для чтения", но я пробовал отключать, и всё равно
        
        appWord.Visible = True
        
        appWord.Activate
        
        With appWord
            .Selection.Find.ClearFormatting
            .Selection.Find.Replacement.ClearFormatting
            With .Selection.Find
                .Text = "#1"
                .Replacement.Text = "blablabla" ' сюда будут подставляться firstName, lastName...
                .Forward = True
                .Wrap = wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            .Selection.Find.Execute replace:=wdReplaceAll
        End With
        
    End If
    
End Sub

Так вот, окно открывается, "#1" в шаблоне выделяется, но не заменяется. Не знаю, что делать.