Word表格行左缩进致错位，如何用VBA宏对齐含合并单元格的表格？

1. 单表格行缩进统一宏 #

针对选中的表格，批量将所有行的左缩进重置为统一值（默认0），兼容大部分合并单元格场景：

Sub AlignTableRowsIndent()
    Dim tbl As Table
    Dim row As Row
    
    ' 校验是否选中表格区域
    If Selection.Information(wdWithInTable) = False Then
        MsgBox "请先选中目标表格的任意单元格！", vbExclamation
        Exit Sub
    End If
    
    Set tbl = Selection.Tables(1)
    
    ' 遍历所有行，跳过已垂直合并的子行
    For Each row In tbl.Rows
        If Not row.IsMerge Then
            row.LeftIndent = 0 ' 可按需修改为其他值，如CentimetersToPoints(0.5)
        End If
    Next row
    
    MsgBox "表格行缩进已统一调整！", vbInformation
End Sub

2. 批量处理文档所有表格宏 #

如果需要一次性修复文档内所有错位表格，使用以下宏：

Sub BatchAlignAllTableRows()
    Dim tbl As Table
    Dim row As Row
    
    ' 遍历文档中所有表格
    For Each tbl In ActiveDocument.Tables
        For Each row In tbl.Rows
            If Not row.IsMerge Then
                row.LeftIndent = 0
            End If
        Next row
    Next tbl
    
    MsgBox "所有表格行缩进已统一调整！", vbInformation
End Sub

3. 合并单元格兼容说明 #

• 水平合并单元格：宏可正常处理，不影响行缩进的统一调整
• 垂直合并单元格：Word中垂直合并的行仅主行（最上方行）保留独立缩进属性，宏会自动跳过被合并的子行，只调整主行缩进，确保合并块整体对齐
• 若仍存在垂直合并行错位，可单独选中对应行运行单表格宏，或手动确认主行的缩进值

4. 宏使用步骤 #

1. 打开Word后按Alt + F11打开VBA编辑器
2. 右键当前文档项目 → 插入 → 模块
3. 将代码粘贴到模块窗口
4. 按F5运行宏，或回到Word界面通过「开发工具」→「宏」选择执行

非宏快速修复方案 #

• 选中整表，右键→「表格属性」→「行」，取消勾选「允许跨页断行」，部分场景可自动重置行缩进
• 复制表格内容后粘贴为「无格式文本」，再重新插入表格（注：会丢失合并格式，仅适合简单表格）

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