Note: The other languages of the website are Google-translated. Back to English

Word文書で同時に複数の単語を見つけて置き換える方法は?

Wordには、単語またはフレーズのすべてのインスタンスを検索し、それらを同時に新しい単語に置き換えるための検索と置換機能があります。 ただし、異なる単語を同時に検索して置換したい場合は、この組み込み関数は役に立ちません。 この記事では、Word文書内の複数の異なる単語を同時に検索して置換するVBAメソッドについて説明します。

Wordで同時に複数の単語を検索してVBAコードに置き換えます
Wordで同時に複数の単語を簡単に見つけて、すばらしい機能で置き換えることができます


Wordで同時に複数の単語を検索してVBAコードに置き換えます

Word文書内の複数の単語を同時に検索して置き換えるには、次のようにしてください。

1.検索するWord文書を開き、同時に複数の単語を置き換えてから、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをモジュールウィンドウにコピーします。

VBAコード:Wordで同時に複数の単語を検索して置換する

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3。 プレス F5 コードを実行するためのキー。

4.最初に Kutools for Word ダイアログボックスで、見つけて置き換える複数の単語をテキストボックスに入力し、カンマで区切ってから、 OK ボタン。 スクリーンショットを参照してください:

5番目に Kutools for Word ダイアログボックスで、置き換える新しい単語を入力し(これらの単語もコンマで区切る必要があります)、[ OK ボタン。

注意: この場合、すべて 「KTE」 このドキュメントでは、 "新着"、 および 「KTO」 および 「KTW」"テスト" および 「終了」。 必要に応じて変更してください。


Wordで同時に複数の単語を簡単に見つけて、すばらしい機能で置き換えることができます

また バッチ検索と置換 の特徴 Kutools for Word ドキュメント内または複数のドキュメント間で同時に異なるテキストを簡単に見つけて置き換えるのに役立ちます。

この機能を適用する前に、数分かかります 最初にダウンロードしてインストールします.

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

2。 の中に バッチ検索と置換 ウィンドウは、次のように構成してください。

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

次に、選択したドキュメント内の特定の単語が同時に置き換えられます。

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

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


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

 

Word用のKutools - Word用の100以上の高度な機能で、50%の時間を節約

  • 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
  • 複数の画像をフォルダ間でWord文書に一度に挿入します。
  • フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...
コメントを並べ替える
コメント (21)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
Toto jsem hledal、jenpotřebujiprohledanýtextpřidatnějakéformátování。 Jak tohodosáhnu?
このコメントは、サイトのモデレーターによって最小化されました
これはOfficeExcel365で機能しますか
このコメントは、サイトのモデレーターによって最小化されました
この大文字と小文字を区別する方法はありますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、これは英語の単語でうまく機能します。 今、私は英語をグジャラート語に翻訳する文書を作っています。 したがって、これを適用すると、(英語の単語を検索)および(グジャラート語の単語に置き換える)は変更されますが、「???」のように表示されます。 グジャラート語ではなく疑問符だけを表示しますか? さらに助けがありますか? お願いします。
このコメントは、サイトのモデレーターによって最小化されました
こんにちはShailesh、同じ問題に直面しています。 あなたはそれに対する解決策を見つけましたか? また、中国語から英語に変更する方法を理解しようとしています。
このコメントは、サイトのモデレーターによって最小化されました
同時に複数の単語を見つけて選択する方法
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
コードを実行すると、KutoolsforExcelダイアログボックスが表示されます。見つかったキーワードを入力してコンマで区切ります。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、このマクロを修正して、より多くのキーワードを使用するにはどうすればよいですか? 見つけて置き換えたい単語が約170個あります
このコメントは、サイトのモデレーターによって最小化されました
こんにちはJM、
コードを実行すると、KutoolsforExcelダイアログボックスが表示されます。見つかったキーワードを入力してコンマで区切ります。
このコメントは、サイトのモデレーターによって最小化されました
やあ! まず、おめでとうございます。このマクロは非常に便利で興味深いものです。 それでも、あなたが私を助けてくれることを願っています。 私は校正者であり、代替品が緑色または赤色でハイリス化されることを望んでいます。 これどうやってするの? 使用できるコード行はありますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは。KutoolsforWordのバッチ検索と置換機能を使用すると、問題を完全に解決できます。試してみてください。
このコメントは、サイトのモデレーターによって最小化されました
[置換]をクリックすると、[プレビュー]に移動し、それ以上何もしません。
このコメントは、サイトのモデレーターによって最小化されました
こんにちはAjs、置換ボタンを押した後、必要なすべての単語が一度に正常に置換されました。 [プレビュー]タブに移動して、正常に置き換えられた単語の数を確認できます。 その後、ダイアログボックスを閉じます。
このコメントは、サイトのモデレーターによって最小化されました
カンマを置き換えようとするとどうなりますか?
このコメントは、サイトのモデレーターによって最小化されました
VBAコードは、コンマの置き換えには役立ちません。 Kutoolsを適用して達成できます。
このコメントは、サイトのモデレーターによって最小化されました
最初の手順(WordでVBAコードを使用して同時に複数の単語を検索して置換する)では、置換する単語が単語の途中にある場合は検出されません(たとえば、Webサイト名に続く.com)。 。 これを変更してそうすることはできますか?
このコメントは、サイトのモデレーターによって最小化されました
プロジェクトに感謝​​します。単語の文字を置き換えることもできる方法にしていただけませんか。 たとえば、ドルをDoLLarとして変更したい場合、それは機能しません。
このコメントは、サイトのモデレーターによって最小化されました
chàobạn、cóchnàothaythay thay tharấtnhiềucụmtừbằngrấtnhiềucụmtừkhác(nhhậptừngcụmtừrấtmấtthờigian) cụm từ đích được không? rất cám ơn bạn.
このコメントは、サイトのモデレーターによって最小化されました
Nguyễn Phúc Lâm さん、こんにちは。
この問題を解決するには、Kutools for Wordのバッチ検索と置換機能(この投稿のXNUMX番目の方法)を適用することをお勧めします.
[検索と置換] ダイアログ ボックスで、必要な XNUMX つの列を作成した後、現在の設定を将来の使用のためにシナリオとして保存できます。
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
このコメントは、サイトのモデレーターによって最小化されました
cámơncrystal、cáchnàycóthểápdụngvớimộtsốlượngnhỏcáccụmtừ、nếuvớisốngngcáccụmtừl Vậy có cách nào khác không bạn? Cám ơn bạn đã trả lời
このコメントは、サイトのモデレーターによって最小化されました
Nguyễn Phúc Lâm さん、こんにちは。
VBA コードは少し複雑なため、一時的にこの問題に対処できません。 この機能は、次のリリースでのアップグレードが検討されます。 ご不便おかけしてすみません。
ここにはまだコメントが投稿されていません

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護