查找和替换 Word 正文、页眉和页脚中的文本

作者Siluvia修改日期2024-08-12

通常，查找和替换功能可帮助您在 Word 文档的正文、页眉和页脚中同时查找并替换指定文本。那么，您是否尝试过仅在 Word 文档的页眉和页脚区域查找和替换文本？或者，是否想要在一份或多份 Word 文档中同时查找并替换多组不同的文本？本教程将为您详细介绍相关操作方法。

使用查找和替换功能查找和替换 Word 文档中相同文本
利用 VBA 代码仅在页眉和页脚区域查找和替换同一文本
使用一项强大功能同时查找和替换不同文本

通过查找和替换功能查找和替换 Word 文档中相同文本

在 Word 文档中，查找和替换功能操作非常便捷。

1. 打开包含待替换词语的文档，按下 Ctrl+H 键，即可打开查找和替换对话框。

2. 在查找和替换对话框的替换选项卡下，分别在查找内容和替换为输入框中输入旧文本和新文本，然后点击全部替换按钮。参见截图：

查找和替换对话框，显示替换选项卡

注意：您可点击更多按钮，查看更多搜索选项。

3. 此时会弹出一个对话框，显示已替换的内容条数。点击确定即可完成。

成功对话框

利用 VBA 代码仅在页眉和页脚区域查找和替换相同文本

如果您只需在文档的页眉和页脚中查找和替换相关内容，可参考本节方法。

1. 打开需要在页眉和页脚中查找和替换文本的文档，按下 Alt+F11 组合键，打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击插入 > 模块，然后将下方 VBA 代码复制到模块窗口中。

VBA 代码：仅在页眉和页脚查找和替换文本

Sub FindAndReplaceOfHeaderAndFooter()
'Update by Extendoffice 20190805
    Dim xDoc As Document
    Dim xSelection As Selection
    Dim xSec As Section
    Dim xHeader As HeaderFooter
Dim xFooter As HeaderFooter
On Error Resume Next
    Set xDoc = Application.ActiveDocument
    For Each xSec In xDoc.Sections
        For Each xHeader In xSec.Headers
            xHeader.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "I've found header text" 'Enter the old header text here!
               .Replacement.Text = "I've found header text" 'Enter the new header text here!
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xHeader
        For Each xFooter In xSec.Footers
            xFooter.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "I've found footer text" 'Enter the old footer text here!
                .Replacement.Text = "I've found footer text" 'Enter the old footer text here!
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xFooter
    Next xSec
    xDoc.ActiveWindow.ActivePane.Close
    If xDoc.ActiveWindow.View.SplitSpecial = wdPaneNone Then
        xDoc.ActiveWindow.View.Type = wdPrintView
    Else
        xDoc.ActiveWindow.View.Type = wdPrintView
    End If
    xDoc.Activate
End Sub

注意：在代码中，请将“Find header text”和“Find footer text”替换为你要查找的页眉和页脚文本；并将“I’ve found header text”和“I’ve found footer text”替换为新的页眉和页脚文本。

3. 在按下 F5 运行代码后，页眉和页脚中的指定文本即可被新文本替换。

通过强大功能同时查找和替换不同文本

Kutools for Word 的批量查找与替换功能能够帮助您轻松在一份或多份文档中同时查找并替换不同文本。

在使用此功能前，请先花几分钟下载安装该工具。

1. 启动 Microsoft Word 应用程序，点击 KUTOOLS PLUS 选项卡中的批量查找与替换。

功能区上 Kutools Plus 选项卡中的批量查找和替换按钮

2. 在批量查找与替换窗口中，请按照以下步骤操作。

2.1，点击按钮 > 文件或目录，将需要查找和替换文本的文档添加进来。
2.2. 点击添加行按钮即可插入查找和替换字段。如需同时查找和替换三段不同文本，只需创建三行。
2.3 在每一行的查找列中输入需要替换的原文本，在替换列中输入新文本。
2.4. 为每一行指定查找类型，轻松实现精准匹配。
2.5. 在查找位置列中，选择需要应用查找和替换的部分，包括主文档、页眉和页脚。您可根据实际需求选择其中一项、两项或全部。
2.6. 点击替换按钮即可开始操作。参见截图：

批量查找和替换窗口

所有指定的文本都将在所选文档中被替换。

提示：您可以在高亮列为某行设置颜色，用背景色轻松突出显示结果。

Kutools for Word 是终极的 Word 插件，能够简化您的工作流程并提升文档处理效率。立即获取！

在 Word 文档中同时查找和替换多个单词
Word 自带的查找和替换功能，可以一次性查找某个词语或短语的所有实例并将其替换为新词。但如果您需要同时查找和替换多个不同的单词，内置功能就无法满足需求。本文将为您介绍如何通过 VBA，在 Word 文档中轻松实现同时查找和替换多个不同单词的方法。

在 Word 中跨多个文件查找与替换
如果您有几十个 Word 文件包含相同内容（如页眉、页脚、特定词语或数字），需要在这些文档中批量替换，如何在 Word 中更高效地完成？当然，您可以逐个打开文件进行替换，但这既耗时又繁琐。本教程将为您介绍一种巧妙的方法，助您在 Word 中一次性批量替换多份文档中的相同内容，轻松提升工作效率。

将硬回车替换为 Word 中的软回车
想要批量将段落标记（硬回车）替换为手动换行符（软回车），高效整理 Word 文档？本教程将为您详细介绍多种快速将硬回车批量转换为软回车的方法。

将软回车替换为 Word 中的硬回车
如果您想通过将手动换行符（软回车）替换为段落标记（硬回车）来高效整理 Word 文档，如何才能快速将软回车批量替换为硬回车？本教程将为您详细介绍多种将软回车转换为硬回车的实用方法。