跳到主要内容

在Word文档,页眉和页脚中查找和替换文本

通常,“查找和替换”功能可帮助同时查找和替换Word文档的正文,页眉和页脚中的特定文本。 您是否曾经尝试过仅在Word文档的页眉和页脚部分中查找和替换文本? 还是要同时在一个Word文档中或跨多个文档查找和替换多个不同的文本? 本教程显示了一些实现它们的方法。

使用“查找和替换”功能查找并替换Word文档中的相同文本
仅使用VBA代码在页眉和页脚部分中查找和替换相同的文本
借助出色的功能同时查找和替换不同的文本


使用“查找和替换”功能查找并替换Word文档中的相同文本

在Word文档中使用“查找和替换”功能很容易。

1.打开包含要替换单词的文档,然后按 按Ctrl + H 按键同时打开 查找和替换 对话框。

2.在 查找和替换 对话框中的 更换 标签,分别在其中输入旧文本和新文本 查找内容 和R代替 框,然后单击 “全部替换” 按钮。 看截图:

请注意: 你可以点击 更多 按钮可根据需要找到更多搜索选项。

3.然后会弹出一个对话框,向您显示已进行了多少次替换。 请点击 OK 完成。


仅使用VBA代码在页眉和页脚部分中查找和替换相同的文本

如果只想在文档的页眉和页脚中查找和替换,本节中的方法会有所帮助。

1.打开您将找到的文档,然后替换页眉和页脚中的文本,然后按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块 然后将下面的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

请注意: 在代码中,请替换“查找标题文本“和”查找页脚文字”以及要在页眉和页脚中找到的文本; 并替换“我发现标题文字“和”我已经找到页脚文字”和新的页眉文本和页脚文本。

3。 按 F5 键来运行代码。 然后,页眉和页脚中的特定文本将替换为新文本。


借助出色的功能同时查找和替换不同的文本

批量查找和替换 的特点 Kutools for Word 可以帮助您轻松地在一个文档中或同时在多个文档中查找和替换不同的文本。

在应用此功能之前,请花几分钟 首先下载并安装.

1.启动Microsoft Word应用程序,单击 Kutools 加 > 批量查找和替换.

2.在 批量查找和替换 窗口,您需要执行以下操作。

  • 2.1点击 按钮> 添加文件 or 添加文件夹 添加您需要在其中查找和替换文本的文档。
  • 2.2点击 添加行 按钮插入查找和替换字段。 如果要同时查找和替换三个不同的文本,请创建三行。
  • 2.3在每一行中,输入要用新文本替换的现有文本。 找到最适合您的地方 列,然后将新文本输入到 更换 列。
  • 2.4指定 搜索类型 每行。
  • 2.5在 查找 列,选择将查找和替换应用到的位置。 这包括 主要文件, 标题页脚 在这个部分。 您可以根据需要选择其中之一,其中两个或全部。
  • 2.6。 点击 更换 按钮开始操作。 看截图:

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

提示: 您可以通过在“突出显示”列中指定某种颜色来用背景颜色突出显示结果。

  如果您想免费试用(60天)此实用程序, 请点击下载,然后按照上述步骤进行操作。


相关文章

在Word文档中同时查找和替换多个单词
Word提供了查找和替换功能,以查找单词或短语的所有实例,并同时用新单词替换它们。 但是,如果您想同时查找和替换不同的单词,此内置函数将无济于事。 在本文中,我们讨论的是一种VBA方法,用于同时在Word文档中查找和替换多个不同的单词。

在Word中搜索和替换多个文件
如果您有几十个包含相同内容(例如页眉,页脚,某些特殊单词或数字)的Word文件,则需要在Word中的那些文档中替换相同的内容。 您如何更轻松地快速完成工作? 当然,您可以一个个地打开这些文件以替换相同的内容,但这将很耗时且麻烦。 本教程将向您展示一种巧妙的方式来一次替换Word中多个文档中的相同内容。

用Word中的软收益替换硬收益
如果要通过用手动换行符(软返回)替换段落标记(硬返回)来格式化Word文档的格式。 如何在Word中快速用软收益替换硬收益? 本教程将向您展示几种将硬收益转换为软收益的方法。

用Word中的硬性回报替换软性回报
如果要通过用其中的段落标记(硬返回)替换手动换行符(软返回)来格式化Word文档的格式。 如何在Word中用硬性报酬快速替换软性报酬? 本教程将向您展示几种将软收益转换为硬收益的方法。


推荐的Word生产力工具

 

Kutools For Word - 超过 100 个 Microsoft Word 高级功能,节省 50% 的时间

  • 复杂和重复的操作可以在几秒钟内完成一次处理。
  • 跨文件夹一次将多个图像插入Word文档。
  • 将文件夹中的多个Word文件合并并合并为所需顺序。
  • 根据标题1,分节符或其他条件将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合, 等等...
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations