在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生產力工具