VBA实现读取Excel单元格值写入Word指定书签位置

现有代码的核心问题 #

你写的代码有两个逻辑错误，修正后即可正常运行：

• 赋值方向颠倒：Range("A1").Value = Cell 是把空字符串变量Cell的值写入A1单元格，和你要取A1值的需求完全相反
• 文档打开方法错误：.Documents.Add 是基于指定模板新建空白文档，要打开已经存好书签的现成文档，必须用.Documents.Open方法

可直接运行的修正代码 #

运行前先确认你已经在VBA编辑器的「工具-引用」里勾选了Microsoft Word 对应版本 Object Library，否则会报类型未定义错误。

Private Sub CreateWordDoc()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim Cell As String
    
    ' 提取A1单元格值，强制转为字符串类型
    Cell = CStr(ThisWorkbook.ActiveSheet.Range("A1").Value)
    
    ' 启动Word程序
    Set wdApp = New Word.Application
    With wdApp
        .Visible = True
        .Activate
        ' 打开已存在的目标Word文档
        Set wdDoc = .Documents.Open("C:\Users\Desktop\WordBookmarkTest.docx")
    End With
    
    ' 向名为Earth的书签位置写入A1的内容
    ' 以下为直接替换书签位置内容的写法，书签会自动保留
    wdDoc.Bookmarks("Earth").Range.Text = Cell
    
    ' 如果需要把内容插在书签后方，注释掉上面的写入行，改用下面两行代码即可
    ' wdDoc.Bookmarks("Earth").Range.Collapse Direction:=wdCollapseEnd
    ' wdDoc.Bookmarks("Earth").Range.InsertAfter Cell

    ' 清空对象引用，避免Word进程后台残留
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

关键逻辑说明 #

• VBA的赋值规则是等号右侧的值传递给左侧的变量/对象，要取单元格值，必须把单元格对象写在等号右侧，存储值的变量写在左侧
• 加CStr()是强制把单元格内容转为字符串类型，避免A1存数字、日期格式值时写入Word出现格式异常
• 代码里加了ThisWorkbook.ActiveSheet明确指定取当前运行宏的Excel文件的活动工作表A1，避免多工作簿打开时取错单元格
• 如果运行提示书签不存在，先打开目标Word文档，检查书签的命名是否确实为Earth，不要有多余空格、拼写错误

内容的提问来源于stack exchange，提问作者Alex