分页符

当然，我可以提供一个简单的VBA宏示例，这个宏会遍历整个Word文档，检查每次出现的字符串 “====================================”，并在每次出现偶数次后插入一个分页符。请按照以下步骤操作：

1. 打开Word文档。
2. 按下 Alt + F11 打开VBA编辑器。
3. 在左侧的“项目”窗格中，找到你的文档名，通常格式是“Project (文档名)”。如果看不到“项目”窗格，请点击菜单栏的“查看” > “项目资源管理器”。
4. 右键单击你的文档名下的“Microsoft Word 对象”文件夹，选择“插入” > “模块”，在新模块上粘贴以下代码：

Sub InsertPageBreakAfterEveryEvenOccurrence()
    Dim doc As Document
    Set doc = ActiveDocument

    Dim searchString As String
    searchString = String(36, "=") ' 36个等号的字符串

    Dim i As Integer
    i = 0
    
    With doc.Range
        With .Find
            .Text = searchString
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            While .Execute
                i = i + 1
                If i Mod 2 = 0 Then ' 检查是否为偶数次出现
                    .Parent.InsertAfter vbCr & Chr(12) ' 在找到的字符串后插入分页符
                    .Parent.Collapse wdCollapseEnd
                Else
                    .Parent.Collapse wdCollapseEnd
                End If
            Wend
        End With
    End With
End Sub

5. 关闭VBA编辑器并返回Word文档。
6. 按下 Alt + F8 打开“宏”对话框。
7. 从宏名列表中选择之前创建的“InsertPageBreakAfterEveryEvenOccurrence”宏。
8. 点击“运行”按钮来执行宏。

运行这个宏后，它会遍历整个文档，检查每次出现的 “====================================” 字符串，并在每次出现偶数次后立即插入一个分页符。

请注意，在实际运行之前，最好备份你的文档以防万一。此外，VBA宏可以自动化重复任务，但在运行任何代码之前，务必理解代码的功能，尤其是当该代码来自不受信任的来源时。