VBA新手求助：如何在Word文档每个表格后插入分页符

你的原宏仅针对固定的第2个段落执行单次操作，且插入位置错误，因此只在第一个表格前添加了分页符。以下是符合需求的解决方案：

Sub InsertPageBreaksAfterTables()
    Dim tbl As Table
    ' 遍历文档中所有表格，从第2个开始处理
    For Each tbl In ActiveDocument.Tables
        If tbl.Index >= 2 Then
            ' 定位到表格末尾的位置
            Dim targetRange As Range
            Set targetRange = tbl.Range
            targetRange.Collapse Direction:=wdCollapseEnd
            ' 插入分页符
            targetRange.InsertBreak Type:=wdPageBreak
        End If
    Next tbl
End Sub

代码说明 #

• 用For Each遍历文档内所有表格，无需手动指定表格数量（即使表格数量变化也能适配）
• tbl.Index >= 2确保跳过第一个表格，从第二个开始处理
• tbl.Range获取表格的完整范围，Collapse方法将光标定位到表格的末尾，避免把分页符插在表格前面
• 插入的分页符会紧跟在对应表格之后，不会干扰其他内容

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