如何使用VBA宏在Word特定行后插入多个分页符？

一、VBA宏解决方案 #

原代码存在文本匹配错误、依赖不稳定对象、效率低下等问题，以下是修正后的高效宏代码：

Option Explicit
Public Sub FindAndAddPageBreak()
    Dim MyWordDocument As Word.Document
    Dim findRange As Range
    
    ' 打开目标文档，若文档已打开可替换为 Set MyWordDocument = Documents("test.docx")
    Set MyWordDocument = Documents.Open("C:\test.docx")
    Set findRange = MyWordDocument.Content
    
    ' 配置查找规则
    With findRange.Find
        .Text = "--------------------------------------------Continue on next page------------------------------------------------"
        .MatchWholeWord = True
        .MatchCase = False
        .Wrap = wdFindContinue
        
        ' 循环处理所有匹配项
        Do While .Execute
            ' 将范围折叠到匹配文本末尾
            findRange.Collapse Direction:=wdCollapseEnd
            ' 插入分页符，如需分节符可改为wdSectionBreakNextPage等类型
            findRange.InsertBreak Type:=wdPageBreak
            ' 更新查找范围，避免重复匹配
            findRange.Collapse Direction:=wdCollapseEnd
            findRange.End = MyWordDocument.Content.End
        Loop
    End With
    
    ' 可选：自动保存文档
    MyWordDocument.Save
    
    ' 释放对象
    Set findRange = Nothing
    Set MyWordDocument = Nothing
End Sub

原代码问题说明 #

• 无需新建Word.Application实例，直接操作当前Word环境即可，否则会导致ActiveDocument/Selection指向错误窗口
• Left$(.Text,11)完全错误，匹配文本长度远大于11，应直接完整匹配目标标记
• Selection对象依赖当前光标位置，操作不稳定，直接使用Range对象更可靠
• 原代码插入的是连续分节符，不符合分页需求，应改用wdPageBreak
• 遍历所有Sentences效率极低，Word内置的Find方法是批量处理的最优方案

二、查找替换手动解决方案 #

无需编写代码，通过Word内置功能即可实现：

1. 按下Ctrl+H打开查找替换对话框
2. 在「查找内容」框中输入完整的分页标记文本
3. 点击「更多」，勾选「使用通配符」
4. 在「替换为」框中输入：^&^m
   • ^&：保留查找匹配到的原分页标记文本
   • ^m：插入分页符
5. 点击「全部替换」，即可在所有分页标记后自动插入分页符

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