在 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. 點擊取代按鈕，立即執行操作！詳情請參閱截圖：

「批次尋找與取代」視窗

接著，所有指定的文字將立即在所選文件中被取代。

提示：您可透過在「醒目提示」欄位中為特定列指定顏色，以背景色突顯顯示結果。

想在 Word 中更快速完成重複性任務嗎？試試 Kutools for Word，讓您的日常操作更輕鬆高效！

下載深入了解

在 Word 文件中同時查找並替換多個字詞
Word 內建的「查找與替換」功能，可快速找出某個字詞或片語的所有出現位置並一次取代。但若您需要同時處理多組不同的字詞替換，此功能便力有未逮。本文將介紹一種 VBA 方法，助您輕鬆在 Word 文件中同步完成多組字詞的查找與替換！

在 Word 中跨多個檔案搜尋並取代
您是否擁有數十份 Word 檔案，其中包含相同的內容（例如頁首、頁尾、特定字詞或數字），並希望一次全部更新？逐一開啟檔案手動取代不僅耗時，還極其繁瑣。別擔心！本教學將為您揭示一個高效技巧，讓您輕鬆一次在多份 Word 文件中同步完成取代，大幅提升工作效率！

在 Word 中將強制換行取代為軟換行
想快速將 Word 文件中的段落標記（強制換行）替換為手動換行符（軟換行）以優化格式？本教學提供多種實用方法，助您輕鬆完成轉換！

在 Word 中將軟換行取代為強制換行
想快速將 Word 文件中的手動換行符（軟換行）取代為段落標記（即強制換行）以完成格式調整？本教學提供多種實用方法，助您輕鬆將軟換行轉換為強制換行！