複数のWord文書の内容を検索して置き換える方法

ワードソリューション 2025 年 9 月 28 日

本日の記事では、複数のWord文書の内容を検索して置き換える方法をお知らせします。

一般的に、ほとんどのWordユーザーは、ソフトウェアの「検索と置換」機能に精通しています。この機能は、文書全体を対象とした一括処理を可能にし、大幅な時間短縮につながります。では、特定のフォルダ内のすべてのファイルなど、複数の文書に対してこのオプションを使用することを考えたことはありますか？

ファイルのバッチ内のコンテンツを検索して置き換える必要があるため、この機能を実現しておくと便利です。そして、私たちの方法はマクロを使用することです。詳細については、以下をお読みください。

マクロをインストールして実行する手順

まず最初に、すべてのファイルを1つのフォルダにまとめて、Wordを開いてください。
次に、「開発者」タブをクリックします。
次に「VisualBasic」をクリックします。または、「Alt + F11」を押して、VBAエディターをトリガーします。
次に、「通常」プロジェクトをクリックします。
次に「挿入」タブをクリックし、「モジュール」を選択します。
これで、新しいモジュールが正常に挿入されました。それをダブルクリックして、コーディングスペースを開きます。
次のコードをそこに貼り付けます。

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

最後に、「実行」をクリックします。
これで、入力ボックスがポップアップ表示されます。ドキュメントを保存するフォルダパスを入力します。
次に「OK」をクリックすると、XNUMX番目のボックスが表示されます。検索するテキストを入力します。
引き続き[OK]をクリックして、XNUMX番目の入力ボックスを開きます。ここで、置換テキストを入力し、そこで[OK]ボタンをクリックします。マクロは自動的にすべての内容を置き換え、変更を保存します。

ご覧のとおり、このマクロには、フォルダパス、テキストの検索と置換を入力できる3つの入力ボックスがあります。したがって、このマクロにボタンを割り当てて、「クイックアクセスツールバー」に追加して再利用できます。

ボタンをマクロに割り当てる方法については、次の記事を読むことができます。 WordでマクロとVBAを使用して貼り付けたテキストのフォーマットを削除する方法

貴重なデータを保護する

エラーや問題はWordで発生する可能性があります。その結果、貴重な文書が破損する可能性があります。と遭遇しながらドキュメントの損傷、データを取得するために専門の回復ツールを入手することをお勧めします。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xlsダメージ (NAIST) と pdf ソフトウェア製品を修理します。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com