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 コードを実行するためのキー。 次に、ヘッダーとフッターの特定のテキストが新しいテキストに置き換えられます。

さまざまなテキストを同時に見つけて、すばらしい機能に置き換えます

1. Microsoft Wordアプリケーションを起動し、をクリックします クツールズプラス > バッチ検索と置換.

2。 の中に バッチ検索と置換 ウィンドウ、あなたは次のようにする必要があります。

• 2.1クリック ボタン> ファイルを追加 or フォルダの追加 検索してテキストを置き換えるために必要なドキュメントを追加します。
  
• 2.2 行を追加する ボタンをクリックして、検索フィールドと置換フィールドを挿入します。 XNUMXつの異なるテキストを同時に検索して置換する場合は、XNUMXつの行を作成してください。
• 2.3各行に、新しいテキストに置き換える既存のテキストを入力します。 もう完成させ、ワークスペースに掲示しましたか? 列をクリックし、新しいテキストをに入力します 交換する コラム。
• 2.4指定する 検索の種類 各行に対して。
• 2.5で で見つける 列で、検索と置換を適用する場所を選択します。 含まれています メインドキュメント, ヘッダ や フッター このセクションで。 必要に応じて、XNUMXつ、XNUMXつ、またはすべてを選択できます。
• 2.6。 クリック 交換する ボタンをクリックして操作を開始します。 スクリーンショットを参照してください：

次に、選択したドキュメント全体で特定のテキストがすべて置き換えられます。

ヒント： 行の[強調表示]列で特定の色を指定することにより、結果を背景色で強調表示できます。

  このユーティリティの無料トライアル（60日）が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。

関連記事

---

推奨される単語生産性ツール

 

Kutools For Word - Microsoft Word の 100 を超える高度な機能により、時間を 50% 節約できます

• 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
• 複数の画像をフォルダ間でWord文書に一度に挿入します。
• フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
• 見出し1、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
• DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクション、 など...

続きを読む 今すぐダウンロード 購入