如何在文档中的每个表格后插入分页符？

Question

这里是新的 VBA 用户。我有一个在 Office 之外创建的 MS Word 文档，其中包含 30 个表格。我想在文档中的每个表格后插入分页符。我尝试使用此 VBA 宏在每个段落处插入换行符作为表格的占位符：

Sub InsertBreak()
Set myRange = ActiveDocument.Paragraphs(2).Range
With myRange
 .Collapse Direction:=wdCollapseEnd
 .InsertBreak Type:=wdPageBreak
End With
End Sub   

这只是在文档中的第一个表格之前添加一个分页符。我想从第二个而不是第一个开始在每个表（段落）中插入分页符。谢谢。

Answer 1

Option Explicit
Sub InsertPgBreak()
    Dim i As Long
    For i = 2 To ActiveDocument.Tables.Count
        ActiveDocument.Tables(i).Range.InsertBreak Type:=wdPageBreak
    Next i
End Sub