Word文書の一部のテキストを検索して置換するための4つの便利な方法

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

このドキュメントでは、Wordドキュメントの一部のテキストを検索して置換するための4つの便利な方法を紹介します。

通常、Wordで「検索と置換」を実行すると、効果はグローバルになります。そのため、本日は、選択範囲、単一ページ、特定のセクションなど、ドキュメントの一部のテキストを検索して置き換える方法を提供したいと考えています。

方法1：選択範囲で「検索と置換」機能を利用する

まず、 tarテキストを取得します。
次に、「Ctrl + H」を押して、「検索と置換」ボックスを開きます。
次に、「検索対象」テキストボックスに検索テキストを入力し、「置換」ボックスに置換テキストを入力します。
次に、「すべて置換」ボタンをクリックします。
ドキュメントの残りの部分で検索を続行するかどうかを尋ねるボックスがポップアップ表示されます。必ず「いいえ」をクリックしてください。

方法2：VBAコードを実行して、選択範囲内のテキストを検索して置換する

まず、ドキュメントコンテンツの範囲を選択します。
次に、「Alt + F11」を押して、VBAエディターをトリガーします。
次に、「通常」をクリックし、「挿入」をクリックします。
メニューから「モジュール」を選択します。
次に、ダブルクリックしてモジュールを開きます。
次のコードをコピーして貼り付けます。

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

次に「F5」を押します。
プロンプトが表示されるXNUMXつの入力ボックスがあります。検索結果と置換テキストをそれぞれXNUMXつのボックスに入力します。
「OK」をクリックして続行します。

方法1とまったく同じ効果が得られます。

方法3：Wordマクロを実行して、指定されたページのテキストを検索して置換する

次のマクロを使用すると、特定のページのテキストを検索して置き換えることができます。

まず、方法2の手順に従って、マクロをインストールして実行します。
次に、そのマクロを次のマクロに置き換えます。

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

これらのコードを実行すると、3つの入力ボックスが表示されます。最初のボックスにページ番号を入力し、XNUMX番目のボックスに検索テキストを入力し、XNUMX番目のボックスに置換テキストを入力します。
続行するには、必ず[OK]をクリックしてください。

方法4：Wordマクロを実行して、セクション内のテキストを検索して置換する

同様に、方法2と同じ手順を実行して、マクロをインストールして実行します。
今回のみ、代わりにこのマクロを使用します。

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

最初のボックスにセクション番号を入力することを忘れないでください。そして、次のXNUMXつのボックスに検索と置換のテキストを入力します。
それでも、「OK」をクリックして続行します。

Wordの問題に対処する

ドキュメントにはさまざまな種類の問題が発生する可能性があります。取り扱いが簡単なものもあれば、より深刻なものもあり、単語の破損。このようなシナリオでは、データを救済するためにできるだけ早く修復ツールを入手する必要があります。

著者紹介：

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