如何通过VBA基于Excel数据在Word生成带指定样式的结构化报告？

由于邮件合并对「标题样式+普通文本」的组合格式支持有限，用VBA是最直接的解决方案，核心逻辑是自动读取Excel数据，在Word中批量生成指定格式的内容，可以按以下步骤操作：

• 整理数据：确保Excel表格表头为「建议名称」「产品代码」「描述」，每条建议单独占一行，无多余空行干扰。
• 启用Word开发工具：打开Word→文件→选项→自定义功能区，勾选「开发工具」选项卡，方便后续操作VBA。
• 编写/粘贴基础VBA代码：
  1. 按Alt+F11打开VBA编辑器，点击「插入→模块」新建代码模块。
  2. 粘贴以下代码，修改Excel文件路径和工作表名称（比如把"C:\建议数据.xlsx"换成你的实际文件路径，Sheet1换成表格所在的工作表名）：

     Sub 生成客户建议报告()
         Dim excelApp As Object, excelBook As Object, ws As Object
         Dim lastRow As Integer, i As Integer
         Dim doc As Document
         
         ' 新建空白Word文档（要在现有文档生成就改成 Set doc = ActiveDocument）
         Set doc = Documents.Add
         
         ' 后台打开Excel读取数据
         Set excelApp = CreateObject("Excel.Application")
         excelApp.Visible = False
         Set excelBook = excelApp.Workbooks.Open("C:\你的文件路径\建议数据.xlsx")
         Set ws = excelBook.Worksheets("Sheet1")
         
         ' 获取数据最后一行
         lastRow = ws.Cells(ws.Rows.Count, "A").End(-4162).Row
         
         ' 遍历每条建议生成内容
         For i = 2 To lastRow
             ' 插入标题并应用标题样式
             doc.Content.InsertAfter ws.Cells(i, 1).Value & "（" & ws.Cells(i, 2).Value & "）"
             doc.Content.Paragraphs.Last.Style = wdStyleHeading1 ' 可改wdStyleHeading2用二级标题
             
             ' 插入描述并应用普通样式
             doc.Content.InsertAfter vbCrLf & ws.Cells(i, 3).Value & vbCrLf & vbCrLf
             doc.Content.Paragraphs.Last.Style = wdStyleNormal
         Next i
         
         ' 清理资源
         excelBook.Close False
         excelApp.Quit
         Set ws = Nothing: Set excelBook = Nothing: Set excelApp = Nothing: Set doc = Nothing
         MsgBox "报告生成完成！"
     End Sub
     

• 运行宏生成报告：回到Word，点击「开发工具→宏」，选择「生成客户建议报告」并运行。第一次运行需调整宏安全设置（文件→选项→信任中心→信任中心设置→宏设置，选「启用所有宏」，仅运行自己编写的宏）。
• 按需调整：比如要修改标题样式，替换代码里的wdStyleHeading1；要保留Excel描述里的换行，确保单元格内用Alt+Enter换行即可。

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