Вставить текст ячейки Excel в Word после закладки через VBA

Question

Excel предоставляет мне настраиваемый текст в ячейке A1, который затем должен быть передан словесной букве в определенном разделе (после закладки).

Только что начал с VBA и нашел + отредактировал код, которыйбыл в состоянии предоставить половину решения.Где я борюсь, это , как вставить текст в ячейку A1 в листе OutputText в слово документа после закладки?

Вот мой код до сих пор:

Function FnBookMarkInsertAfter()
       Dim objWord
       Dim objDoc
       Dim objRange
         Set objWord = CreateObject("Word.Application")
         Set objDoc = objWord.Documents.Open("C:\Users\[...]")
         objWord.Visible = True
         Set objRange = objDoc.Bookmarks("bookmark_1").Range
         objRange.InsertAfter ("Cell A1 from Sheet OutputText")
    End Function

Спасибо!

Answer 1

Будет ли это работать для вас?(Я не могу взять кредит на код):

Sub test()

Dim objWord As Object
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets(1)
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "C:\test.docx" ' change as required
With objWord.ActiveDocument
    .Bookmarks("bookmark_1").Range.Text = ws.Range("A1").Value
End With
Set objWord = Nothing

End Sub