在每个表格后插入分页符并保留表格标题？

Question

我发布了关于如何在文档中的每个表格后插入分页符？。现在我的所有表格上方都有标题（样式=表格标题）。当我从更高的用户运行宏时，每个标题在中断之前都保留在页面上。我希望标题与表格保持一致。

Answer 1

• 使用

  Find

  方法定位所有表格标题，然后插入分页符

Sub InsertPageBreakAtCaptionEnd()
    Dim docRng As Range
'    Const STYLE_NAME = "Caption"  ' for testing
    Const STYLE_NAME = "Table Caption"  ' modify as needed
    Set docRng = ActiveDocument.Content
    With docRng.Find
        .ClearFormatting
        .Style = ActiveDocument.Styles(STYLE_NAME)
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        Do While .Execute
            docRng.Collapse Word.wdCollapseStart
            docRng.InsertBreak Type:=wdPageBreak
            docRng.Move Word.wdParagraph, 1
        Loop
    End With
End Sub