嘿，我看了你的问题和你写的代码，问题主要出在两个地方：

1. 分页符的插入位置不对：你现在是在每个表格后面添加分页符（ChrW(12)），这会让分页符跟在表格末尾，下一个表格还是会紧接在分页符之后，但原文档里表格之间本来就有空格，很可能干扰了分页符的效果；而且你要的是每个表格都在新页面顶部，应该在表格前面插入分页符才对。
2. 表格的遍历顺序有误：从前往后遍历表格时，每插入一个分页符都会改变文档的结构，导致后面的表格索引发生偏移，很可能出现重复处理或者漏掉表格的情况，正确的做法是从后往前遍历。

给你修正后的亲测有效的代码：

Sub MoveTablesToNewPages()
    Dim i As Integer
    Dim tbl As Table
    ' 从最后一个表格往回遍历到第2个表格，避免索引偏移问题
    For i = ActiveDocument.Tables.Count To 2 Step -1
        Set tbl = ActiveDocument.Tables(i)
        ' 在表格的最前面插入分页符，确保表格处于新页面顶部
        tbl.Range.InsertBefore ChrW(12)
    Next i
End Sub

这段代码的逻辑给你拆解下：

• 从最后一个表格开始倒序处理，这样就算插入分页符，也不会影响还没处理的表格的索引位置
• 只处理第2个到最后一个表格，在它们前面插入分页符，这样第一个表格会留在原文档的第一页顶部，后面的每个表格都会自动跳到新页面的顶部
• 用tbl.Range.InsertBefore来插入分页符，确保精准定位到表格的最前端，不会被表格内的内容干扰

如果运行后还是没达到预期，你可以检查这两点：

• 确认文档里的都是标准的Word表格，不是文本框、形状或者其他对象模拟的表格
• 可以先手动清除表格之间的所有空白段落，再运行代码，避免多余的空格干扰分页效果

备注：内容来源于stack exchange，提问作者China Diapers