我帮你梳理了一套针对性的VBA宏实现方案，完全匹配你提出的三种判断逻辑，先理清楚核心思路：

• 遍历文档所有段落，精准定位分页符位置
• 根据分页符后第一个段落的类型（标题/副标题/普通文本），决定插入的内容
• 从后往前遍历避免插入新段落打乱顺序，保证处理逻辑准确

完整宏代码 #

Sub InsertContinuedHeaders()
    Dim doc As Document
    Dim para As Paragraph
    Dim nextPara As Paragraph
    Dim insertPos As Range
    
    Set doc = ActiveDocument
    ' 从文档末尾往前遍历，避免插入新段落影响遍历顺序
    For i = doc.Paragraphs.Count To 1 Step -1
        Set para = doc.Paragraphs(i)
        
        ' 跳过表格内的分页符（可根据需求删除此判断）
        If para.Range.Information(wdWithInTable) = False Then
            ' 检查当前段落是否包含分页符（Chr(12)是分页符的字符代码）
            If InStr(1, para.Range.Text, Chr(12)) > 0 Then
                ' 确保分页符不是文档最后一段
                If i < doc.Paragraphs.Count Then
                    Set nextPara = doc.Paragraphs(i + 1)
                    Set insertPos = nextPara.Range
                    insertPos.Collapse wdCollapseStart
                    
                    ' 根据下一段的样式判断插入内容
                    Select Case nextPara.Style.NameLocal
                        Case "标题1" ' 替换为你文档中标题的实际样式名
                            ' 已是标题，跳过处理
                        Case "标题2" ' 替换为你文档中副标题的实际样式名
                            ' 副标题前的分页符，仅插入Title continued
                            insertPos.InsertBefore "Title continued" & vbCr
                        Case Else
                            ' 非标题/副标题的分页符，插入两行延续文本
                            insertPos.InsertBefore "Title continued" & vbCr & "Subtitle continued" & vbCr
                    End Select
                End If
            End If
        End If
    Next i
End Sub

关键细节说明 #

• 遍历方向：从后往前遍历是为了避免插入新段落打乱后续未遍历的段落位置，防止漏处理或重复处理
• 样式匹配：代码里用了Word默认的「标题1」「标题2」样式，你可以直接替换成自己文档中标题/副标题的实际样式名称
• 分页符识别：用Chr(12)匹配分页符，同时跳过了表格内的分页符（如果不需要这个限制，直接删除对应的判断语句即可）
• 插入位置：在分页符后的第一个段落开头插入文本，确保内容刚好显示在新页面的顶部

使用步骤 #

1. 打开目标Word文档
2. 按下Alt + F11打开VBA编辑器
3. 右键左侧项目列表→插入→模块
4. 将上述代码粘贴到模块中
5. 按下F5运行宏，或回到Word界面通过「开发工具」→「宏」选择运行

内容的提问来源于stack exchange，提问作者Andrew Hammond