如何从Excel批量生成Word单文档内重复布局块（替代Mailmerge）

我完全懂你的痛点——邮件合并默认的输出方式确实挠不到痒处：要么生成一堆独立文档，要么把每条数据硬生生塞在新页面，但其实有几个实用方法能实现你要的「单文档内重复生成布局块」效果，不用反复折腾模板：

方案1：修改邮件合并默认设置（零代码快捷法） #

这是最省心的路子，只需要调整几个容易被忽略的选项：

• 打开Word，先设计好单条数据的布局块（比如标题、详情栏、小表格这类你要重复的结构）
• 点击「邮件」选项卡→「开始邮件合并」→选「信函」（别担心，只是用它的合并逻辑，不是真的做信函）
• 连接Excel数据源：「选择收件人」→「使用现有列表」，选中你的Excel文件
• 把Excel里的字段插入到模板对应位置（点「插入合并域」挑对应的字段就行）
• 关键操作：点击「完成并合并」→「编辑单个文档」，在弹出的对话框里选「全部」，一定要勾选「将所有记录合并到一个文档」！
• 如果生成后每条块之间有分页符，直接用「查找替换」：查找内容填^m（分页符的代码），替换为空，就能让所有块连续排列在一个文档里。

方案2：用VBA宏自定义生成（复杂布局首选） #

如果你的布局块包含图片、嵌套表格这类复杂元素，宏能给你更精准的控制：

1. 在Word模板里设计好单个数据块，把要替换的内容标成占位符（比如<<项目名称>>、<<完成日期>>），然后给整个块加个书签：选中布局块→「插入」→「书签」，命名为TemplateBlock
2. 按Alt+F11打开VBA编辑器，插入新模块，粘贴下面的代码：

Sub GenerateRepeatingBlocks()
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object
    Dim lastRow As Long
    Dim i As Long
    Dim doc As Document
    Dim templateRange As Range
    
    ' 定位到模板块的书签范围
    Set templateRange = ActiveDocument.Bookmarks("TemplateBlock").Range
    Set doc = ActiveDocument
    
    ' 连接Excel数据源（替换成你的文件路径和工作表名）
    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Open("C:\你的Excel文件路径.xlsx")
    Set xlWS = xlWB.Worksheets("Sheet1")
    lastRow = xlWS.Cells(xlWS.Rows.Count, "A").End(-4162).Row ' 获取数据最后一行
    
    ' 循环生成每个数据块
    For i = 2 To lastRow ' 假设第一行是表头，从第二行开始读取数据
        ' 复制模板块到文档末尾
        templateRange.Copy
        doc.Content.Paste
        
        ' 替换占位符为Excel对应单元格内容
        With doc.Content.Find
            .Text = "<<项目名称>>"
            .Replacement.Text = xlWS.Cells(i, "A").Value
            .Execute Replace:=wdReplaceAll
            .Text = "<<完成日期>>"
            .Replacement.Text = xlWS.Cells(i, "B").Value
            .Execute Replace:=wdReplaceAll
            ' 这里可以继续添加其他需要替换的占位符和对应列
        End With
    Next i
    
    ' 清理资源
    xlWB.Close SaveChanges:=False
    xlApp.Quit
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
    Set templateRange = Nothing
    Set doc = Nothing
    
    MsgBox "所有数据块生成完成！"
End Sub

3. 修改代码里的Excel路径、工作表名，还有占位符和对应列的映射关系，运行宏就能自动生成所有重复块。

方案3：内容控件+XML映射（适合频繁更新数据） #

如果需要经常同步Excel数据，这个方法一劳永逸：

• 把Excel数据另存为XML格式（Excel→「另存为」→选「XML数据」）
• 在Word模板里，给布局块的每个需要填充数据的位置插入内容控件（比如文本控件、图片控件）
• 点击「开发工具」选项卡→「XML映射窗格」，添加刚才保存的XML文件，把每个内容控件映射到对应的XML节点
• 用「重复节内容控件」把整个布局块包裹起来，设置它重复的次数对应Excel的数据行数，之后只要更新XML文件，Word里的所有布局块会自动同步更新。

这些方法都能实现「一次定义模板，自动生成单文档内多块」的需求，不用再被邮件合并的默认输出限制住。

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