基于模板生成多文档（邮件合并）的格式与表格生成问题

针对你提到的邮件合并占位符替换丢失格式、带REPEAT标识的表格行无法按需重复（含嵌套表格）的问题，以下提供Python和VBA两种可直接落地的解决方案：

Python 解决方案（基于python-docx + pandas） #

1. 保留格式的占位符替换 #

核心思路是**遍历文档中的每个格式块（Run）**替换占位符，而非直接替换整个段落文本，以此保留原有的字体、加粗、对齐等格式。

from docx import Document
import pandas as pd

def replace_placeholder_with_format(doc, data_dict):
    # 处理普通段落
    for para in doc.paragraphs:
        for run in para.runs:
            for placeholder, value in data_dict.items():
                if placeholder in run.text:
                    run.text = run.text.replace(placeholder, str(value))
    # 处理表格（含嵌套表格）
    for table in doc.tables:
        _replace_table_placeholders(table, data_dict)

def _replace_table_placeholders(table, data_dict):
    for row in table.rows:
        for cell in row.cells:
            # 递归处理嵌套表格
            if cell.tables:
                for sub_table in cell.tables:
                    _replace_table_placeholders(sub_table, data_dict)
            # 处理单元格内的格式块
            for para in cell.paragraphs:
                for run in para.runs:
                    for placeholder, value in data_dict.items():
                        if placeholder in run.text:
                            run.text = run.text.replace(placeholder, str(value))

2. 处理REPEAT标识的表格行 #

通过反向遍历表格/行避免插入新行打乱索引，复制原行时直接继承格式，再填充对应数据，最后删除原标识行。

def process_repeat_rows(doc, excel_data):
    # 反向遍历顶层表格
    for table in reversed(doc.tables):
        _process_table_repeat_rows(table, excel_data)

def _process_table_repeat_rows(table, excel_data):
    # 反向遍历行，防止插入行影响后续索引
    for i in reversed(range(len(table.rows))):
        row = table.rows[i]
        first_cell_text = row.cells[0].text.strip()
        if "REPEAT" in first_cell_text and "TableDisplay" in first_cell_text:
            # 提取TableDisplayX标识（如TableDisplay1）
            table_key = [s for s in first_cell_text.split() if "TableDisplay" in s][0]
            # 筛选Excel中对应列值为'y'的数据
            filter_data = excel_data[excel_data[table_key] == 'y'].to_dict('records')
            if not filter_data:
                table._tbl.remove(row._tr)
                continue
            # 复制原行并插入到原行上方
            for idx, data in enumerate(filter_data):
                new_row = table.add_row()._tr
                row._tr._parent.insertBefore(new_row, row._tr)
                # 替换新行的占位符
                _replace_table_placeholders(table.rows[i+idx], data)
            # 删除原REPEAT标识行
            table._tbl.remove(row._tr)
    # 递归处理嵌套表格
    for row in table.rows:
        for cell in row.cells:
            if cell.tables:
                for sub_table in cell.tables:
                    _process_table_repeat_rows(sub_table, excel_data)

# 主调用示例
if __name__ == "__main__":
    doc = Document("template.docx")
    excel_data = pd.read_excel("MailMerge.xlsx")
    # 先处理重复行，再替换全局占位符
    process_repeat_rows(doc, excel_data)
    global_data = excel_data.iloc[0].to_dict()  # 假设第一行为全局数据
    replace_placeholder_with_format(doc, global_data)
    doc.save("output.docx")

VBA 解决方案（Word + Excel 对象模型） #

1. 保留格式的占位符替换 #

通过遍历每个格式Run对象实现替换，确保格式不丢失，同时递归处理嵌套表格。

Sub ReplacePlaceholdersWithFormat(doc As Document, dataDict As Object)
    Dim para As Paragraph
    Dim run As Run
    Dim placeholder As Variant
    Dim value As String
    
    ' 处理普通段落
    For Each para In doc.Paragraphs
        For Each run In para.Runs
            For Each placeholder In dataDict.Keys
                value = dataDict(placeholder)
                If InStr(run.Text, placeholder) > 0 Then
                    run.Text = Replace(run.Text, placeholder, value)
                End If
            Next placeholder
        Next run
    Next para
    
    ' 处理表格（含嵌套）
    Call ReplaceTablePlaceholders(doc.Tables, dataDict)
End Sub

Sub ReplaceTablePlaceholders(tables As Tables, dataDict As Object)
    Dim table As table
    Dim row As row
    Dim cell As Cell
    Dim subTable As table
    
    For Each table In tables
        For Each row In table.Rows
            For Each cell In row.Cells
                ' 递归处理嵌套表格
                If cell.Tables.Count > 0 Then
                    Call ReplaceTablePlaceholders(cell.Tables, dataDict)
                End If
                ' 处理单元格内的格式块
                For Each para In cell.Paragraphs
                    For Each run In para.Runs
                        For Each placeholder In dataDict.Keys
                            value = dataDict(placeholder)
                            If InStr(run.Text, placeholder) > 0 Then
                                run.Text = Replace(run.Text, placeholder, value)
                            End If
                        Next placeholder
                    Next run
                Next para
            Next cell
        Next row
    Next table
End Sub

2. 处理REPEAT标识的表格行 #

反向遍历行避免索引混乱，复制原行继承格式，读取Excel中符合条件的数据填充，最后删除原标识行。

Sub ProcessRepeatRows(doc As Document, excelSheet As Worksheet)
    Dim i As Integer
    For i = doc.Tables.Count To 1 Step -1
        Call ProcessTableRepeatRows(doc.Tables(i), excelSheet)
    Next i
End Sub

Sub ProcessTableRepeatRows(table As table, excelSheet As Worksheet)
    Dim i As Integer
    Dim row As row
    Dim firstCellText As String
    Dim tableKey As String
    Dim dataRow As Integer
    Dim newRow As row
    Dim dataDict As Object
    
    ' 反向遍历行
    For i = table.Rows.Count To 1 Step -1
        Set row = table.Rows(i)
        firstCellText = Trim(row.Cells(1).Range.Text)
        If InStr(firstCellText, "REPEAT") > 0 And InStr(firstCellText, "TableDisplay") > 0 Then
            ' 提取TableDisplayX标识
            tableKey = Split(Split(firstCellText, "REPEAT")(1), " ")(1)
            ' 筛选Excel中列值为'y'的数据
            For dataRow = 2 To excelSheet.Cells(excelSheet.Rows.Count, tableKey).End(xlUp).Row
                If excelSheet.Cells(dataRow, tableKey).Value = "y" Then
                    ' 构建数据字典
                    Set dataDict = CreateObject("Scripting.Dictionary")
                    For col = 1 To excelSheet.Cells(1, excelSheet.Columns.Count).End(xlToLeft).Column
                        dataDict("{{" & excelSheet.Cells(1, col).Value & "}}") = excelSheet.Cells(dataRow, col).Value
                    Next col
                    ' 复制原行并插入
                    row.Copy
                    table.Rows(i).Paste
                    Set newRow = table.Rows(i)
                    ' 替换新行占位符
                    Call ReplaceTablePlaceholders(New Collection:={newRow.Range.Tables(1)}, dataDict)
                End If
            Next dataRow
            ' 删除原标识行
            row.Delete
        End If
    Next i
    
    ' 递归处理嵌套表格
    For Each row In table.Rows
        For Each cell In row.Cells
            If cell.Tables.Count > 0 Then
                For Each subTable In cell.Tables
                    Call ProcessTableRepeatRows(subTable, excelSheet)
                Next subTable
            End If
        Next cell
    Next row
End Sub

' 主调用示例
Sub Main()
    Dim doc As Document
    Dim excelApp As Object
    Dim excelWB As Object
    Dim excelSheet As Object
    Dim globalDataDict As Object
    
    Set doc = ActiveDocument
    Set excelApp = CreateObject("Excel.Application")
    Set excelWB = excelApp.Workbooks.Open("C:\MailMerge.xlsx")
    Set excelSheet = excelWB.Sheets(1)
    
    ' 先处理重复行
    Call ProcessRepeatRows(doc, excelSheet)
    
    ' 替换全局占位符（取第二行数据）
    Set globalDataDict = CreateObject("Scripting.Dictionary")
    For col = 1 To excelSheet.Cells(1, excelSheet.Columns.Count).End(xlToLeft).Column
        globalDataDict("{{" & excelSheet.Cells(1, col).Value & "}}") = excelSheet.Cells(2, col).Value
    Next col
    Call ReplacePlaceholdersWithFormat(doc, globalDataDict)
    
    excelWB.Close SaveChanges:=False
    excelApp.Quit
    Set excelApp = Nothing
    Set excelWB = Nothing
    Set excelSheet = Nothing
    Set globalDataDict = Nothing
End Sub

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