Word文書内の複数のアイテムを見つけて置き換える方法

今日の記事では、Word文書内の複数のアイテムを見つけて置き換える方法について説明します。

Wordに組み込まれている「検索と置換」機能を使用すると、単語やフレーズを一度に検索して置換できます。 これは確かにバッチ処理のニーズを満たすことはできません。

実際のところ、前回の記事のXNUMXつで、一度に複数のアイテムを検索する機能を拡張しました。 詳細については、次の記事を参照してください。 2つのWord文書で複数のアイテムを同時に見つけるXNUMXつの簡単な方法

上記のリンクでは、複数のアイテムを同時に検索する方法について説明しました。 また、この記事では、各アイテムをそれぞれ異なる新しいアイテムに交換する方法についても説明します。

Word VBAを実行して、複数のアイテムを検索して置換します

マクロは、Wordでカスタマイズされたバッチ処理タスクを実行するために残された唯一の方法です。 以下の手順に従って、ミッションを達成してください。

1. まず最初に、対象のドキュメントを開いてください。
2. 次に、リボンで利用できる場合は、[開発者]タブをクリックします。
3. 次に、[Visual Basic]をクリックして、WordでVBAエディターを開きます。 または、代わりに「Alt + F11」を押すことを選択できます。
4. 次に、左側の列の「通常」をクリックします。
5. そして、メニューバーに移動して「挿入」をクリックします。
6. ドロップダウンメニューで、「モジュール」を選択します。
7. 次に、新しいモジュールをダブルクリックして開きます。
8. モジュールに次のコードを貼り付けます。

Sub FindAndReplaceMultiItems()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim nSplitItem As Long
   
  Application.ScreenUpdating = False

  ' Enter items to be replaces and new ones.
  strFindText = InputBox("Enter items to be found here,seperated by comma: ", "Items to be found")
  strReplaceText = InputBox("Enter new items here, seperated by comma: ", "New items")
  nSplitItem = UBound(Split(strFindText, ","))

  ' Find each item and replace it with new one respectively.
  For nSplitItem = 0 To nSplitItem
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = Split(strFindText, ",")(nSplitItem)
        .Replacement.Text = Split(strReplaceText, ",")(nSplitItem)
        .Format = False
        .MatchWholeWord = False
      End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
Next nSplitItem

  Application.ScreenUpdating = True

End Sub

9. 「F5」を押してマクロを実行します。
10. これで、最初の入力ボックスが表示されます。 検索するアイテムを入力し、カンマを使用して区切ります。 カンマの後にスペースを入力しないでください。
11. 次に、「OK」をクリックして続行します。
12. XNUMX番目の入力ボックスに、新しい項目を入力し、カンマで区切ります。
13. 最後に「OK」をクリックします。

データ損失に直面して

貴重な情報を破壊する可能性のあるデータ災害に直面して元気になるのは難しいです。 ただし、取得できるので慌てる必要はありません。 Wordの修復 少額のお金を払い出すことによる効用。

著者紹介：

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