通過VBA在書簽后的Word中插入Excel單元格文本

Question

Excel在單元格A1中為我提供了自定義文本，然后應將其傳遞到特定部分的單詞字母（在書簽之后）。

剛從VBA開始，發現並編輯了能夠提供一半解決方案的代碼。 我在哪里掙扎的是如何將表OutputText的單元格A1中的文本插入書簽之后的word文檔？

到目前為止，這是我的代碼：

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