嗨，面对500页文档的重复任务，手动操作肯定要崩溃！别担心，Word里有两个靠谱的办法能帮你批量搞定在重复标题间添加文本的需求，一起来看看：

方法一：用查找替换快速处理（适合格式统一的情况） #

如果你的重复标题用了统一的样式（比如「标题1」），或者标题文本完全一致，用查找替换就能高效解决：

• 按下Ctrl+H打开查找替换对话框，点击「更多」展开高级选项。
• 如果你靠样式识别标题：在「查找内容」里点击「格式」→「样式」，选择对应的标题样式；如果靠文本识别，直接输入标题的完整文本。
• 勾选「使用通配符」（关键！），然后根据你的需求设置查找和替换内容：

  比如要在两个连续的「XX标题」之间插入文本，查找内容填^13(XX标题)^13(XX标题)，替换内容填^13\1^13[你要添加的文本]^13\2（^13代表段落换行符，\1和\2对应查找的两个标题内容）。

• 点击「全部替换」，就能一次性完成所有位置的文本插入。

方法二：用VBA宏实现灵活批量处理（适合复杂场景） #

如果文档里的标题分布比较零散，或者需要更精准的判断，VBA宏会更顺手：

• 打开你的Word文档，按下Alt+F11打开VBA编辑器。
• 右键点击左侧的文档名称，选择「插入」→「模块」，粘贴下面的代码：

Sub AddTextBetweenSameHeaders()
    Dim doc As Document
    Dim para As Paragraph
    Dim lastHeaderText As String
    Set doc = ActiveDocument
    
    lastHeaderText = "" ' 初始化上一个标题文本
    
    For Each para In doc.Paragraphs
        ' 这里假设标题用的是「标题1」样式，可改成你实际的样式名
        If para.Style = "标题1" Then
            ' 判断当前标题和上一个标题是否相同
            If lastHeaderText = para.Range.Text Then
                ' 在当前标题前插入指定文本，可修改引号内的内容
                para.Range.InsertBefore "你需要添加的相同文本" & vbCrLf
            End If
            lastHeaderText = para.Range.Text
        End If
    Next para
End Sub

• 根据你的实际情况修改代码：把"标题1"换成你用的标题样式名，把"你需要添加的相同文本"替换成要插入的内容。
• 按下F5运行宏，Word就会自动遍历文档，在所有重复标题之间插入文本啦！

小提醒 #

操作前一定要记得备份原文档哦，避免意外修改后无法恢复~

备注：内容来源于stack exchange，提问作者killua