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

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 = "Ive found header text" Enter the old header text here! .Replacement.Text = "Ive 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 = "Ive found footer text" Enter the old footer text here! .Replacement.Text = "Ive 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

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

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

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

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

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

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

推荐的Word生产力工具