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

Author: Siluvia Last Modified: 2025-05-07

通常，Word文档中的“查找和替换”功能可以帮助同时在文档的正文中、页眉和页脚中查找并替换特定文本。您是否尝试过仅在Word文档的页眉和页脚部分查找和替换文本？或者在同一时间对单个Word文档或多个文档中的不同文本进行批量查找和替换？本教程将展示一些实现这些操作的方法。

使用查找和替换功能在Word文档中查找和替换相同文本
使用VBA代码仅在页眉和页脚部分查找和替换相同文本
通过一个强大的功能同时查找和替换不同的文本

使用查找和替换功能在Word文档中查找和替换相同文本

在Word文档中使用查找和替换功能非常简单。

1. 打开包含要替换文字的文档，同时按下Ctrl + H键打开“查找和替换”对话框。

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

Find and Replace dialog box with the Replace tab displayed

注意：您可以点击“更多”按钮以根据需要找到更多搜索选项。

3. 然后会弹出一个对话框，告诉您已经进行了多少次替换。点击“确定”完成操作。

Success dialog box

使用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 > 批量查找和替换。

Batch Find and Replace button on the Kutools Plus tab on the ribbon

2. 在“批量查找和替换”窗口中，您需要执行以下操作：

2.1 点击按钮 > 添加文件 或 添加文件夹 以添加需要查找和替换文本的文档。
2.2 点击“ 添加行”按钮以插入查找和替换字段。如果要同时查找和替换三个不同的文本，请创建三行。
2.3 在每一行中，在“查找”列中输入要替换为新文本的现有文本，然后在“替换为”列中输入新文本。
2.4 为每一行指定“查找类型”。
2.5 在“查找位置”列中，选择应用查找和替换的位置。包括主文档、页眉和页脚。您可以根据需要选择其中一个、两个或全部。
2.6. 点击“替换”按钮开始操作。参见截图：

Batch Find and Replace window

然后所有特定文本将在所选文档中被替换。

提示：您可以通过在“突出显示”列中为某一行指定背景颜色来高亮显示结果。

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

在Word文档中同时查找和替换多个单词 Word提供了“查找和替换”功能，可以查找某个单词或短语的所有实例，并将其一次性替换为新单词。但是，如果您想同时查找和替换不同的单词，这个内置功能就无法满足需求了。本文将介绍一种VBA方法，用于在Word文档中同时查找和替换多个不同的单词。

在Word中跨多个文件进行查找和替换 如果您有几十个包含相同内容（如页眉、页脚、某些特殊单词或数字）的Word文件，并且需要在这些文档中替换相同的内容。如何才能快速完成这项任务呢？当然，您可以逐个打开这些文件进行替换，但这将非常耗时且麻烦。本教程将向您展示一种巧妙的方法，可以在Word中一次替换多个文档中的相同内容。

在Word中将硬回车替换为软回车 如果您希望通过将段落标记（硬回车）替换为手动换行符（软回车）来格式化Word文档。如何快速在Word中将硬回车替换为软回车呢？本教程将向您展示几种将硬回车转换为软回车的方法。

在Word中将软回车替换为硬回车 如果您希望通过将手动换行符（软回车）替换为段落标记（硬回车）来格式化Word文档。如何快速在Word中将软回车替换为硬回车呢？本教程将向您展示几种将软回车转换为硬回车的方法。