使用Excel VBA同步Excel数据至Word表格并批量保存的报错问题

一、解决Word宏不安全提示 #

• 打开Word，依次点击「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，选择「启用所有宏（仅信任自己的文档时使用）」；
• 或者将Word模板所在文件夹添加到「信任位置」：在信任中心设置里选择「信任位置」→「添加新位置」，选中模板所在文件夹，勾选「同时信任此位置的子文件夹」，Word会信任该文件夹下的文档，不再弹出宏安全提示。

二、修正Excel VBA代码（解决打开文档报错及逻辑问题） #

原代码存在未定义对象、依赖ActiveDocument、未复用模板等问题，以下是修正后的完整代码：

Sub ExcelToWordMerge()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim ws As Worksheet
    Dim i As Integer
    Dim filePath As String
    Dim pathDest As String
    Dim xName As String, xAge As String, xZip As String
    
    ' 指定操作的Excel工作表，避免依赖ActiveSheet
    Set ws = ThisWorkbook.Sheets(1)
    
    ' 创建Word应用实例
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True
    ' 禁用Word宏安全提示（配合信任位置使用更安全）
    wordApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
    
    ' Word模板路径
    filePath = "C:\Users\drana\OneDrive\Documents\Doc2.docx"
    
    ' 循环处理第2到第5行数据
    For i = 2 To 5
        ' 每次循环打开新的模板副本，防止修改原模板
        Set wordDoc = wordApp.Documents.Open(filePath)
        
        ' 读取Excel单元格数据，明确指定工作表
        xName = ws.Cells(i, 1).Value
        xAge = ws.Cells(i, 2).Value
        xZip = ws.Cells(i, 3).Value
        
        ' 修改Word表格内容，直接使用wordDoc对象而非ActiveDocument
        If wordDoc.Tables.Count >= 1 Then
            ' 用Range.Text避免单元格自带的结束标记（^p）
            wordDoc.Tables(1).Cell(1, 2).Range.Text = xName
            wordDoc.Tables(1).Cell(3, 2).Range.Text = xAge
            wordDoc.Tables(1).Cell(5, 2).Range.Text = xZip
        End If
        
        ' 设置保存路径，添加下划线区分文件名
        pathDest = "C:\Users\drana\OneDrive\Documents\Doc2_" & i & ".docx"
        
        ' 保存文档，指定docx格式（12对应wdFormatXMLDocument）
        wordDoc.SaveAs2 Filename:=pathDest, FileFormat:=12
        
        ' 关闭当前文档，不保存原模板的修改
        wordDoc.Close SaveChanges:=0 ' wdDoNotSaveChanges
        Set wordDoc = Nothing
    Next i
    
    ' 退出Word并释放对象
    wordApp.Quit
    Set wordApp = Nothing
    Set ws = Nothing
    
    MsgBox "批量生成文档完成！", vbInformation
End Sub

三、代码修改要点说明 #

• 定义并赋值wordDoc对象：打开模板时直接绑定文档对象，避免依赖ActiveDocument导致的对象引用错误；
• 复用原模板：每次循环重新打开模板，确保每次操作的是干净的模板副本，不会污染原文件；
• 指定工作表：用ws.Cells(i,1)代替Cells(i,1)，明确操作的工作表，防止当前工作表切换引发错误；
• 修正单元格文本赋值：使用Range.Text代替Cell.Text，避免Word单元格自带的结束标记导致多余换行；
• 指定保存格式：使用SaveAs2并设置FileFormat:=12，适配新版本Office的docx格式；
• 清理对象：循环结束后关闭文档并释放对象，避免内存泄漏。

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