Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

Wordで複数のファイルを検索して置き換える方法は?

同じコンテンツ(ヘッダー、フッター、いくつかの特別な単語や数字など)を含む数十の単語ファイルがあり、Word内のそれらのドキュメント全体で同じコンテンツを置き換える必要がある場合。 あなたがそれを素早く成し遂げるのはどのように簡単でしょうか? 確かに、それらのファイルをXNUMXつずつ開いて同じコンテンツを置き換えることはできますが、時間と手間がかかります。 このチュートリアルでは、Wordの複数のドキュメント内の同じコンテンツを一度に置き換えるトリッキーな方法を紹介します。

複数のWord文書にまたがるテキストを同時に検索し、VBAコードで置き換えます
Kutools for Wordを使用すると、複数のドキュメントにまたがるさまざまなテキストを同時に簡単に見つけて置き換えることができます。


複数のWord文書にまたがるテキストを同時に検索し、VBAコードで置き換えます

1。 押す 他の + F11 を開く Microsoft Visual Basic for Applications 窓。

2。 の中に Microsoft Visual Basic for Applications ウィンドウ、クリック インセットモジュール、次に、次のVBAコードをモジュールウィンドウにコピーします。

VBAコード:一度に複数のドキュメントで同じコンテンツを検索して置き換える

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

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

4.オープニングで ブラウズ ウィンドウで、検索するドキュメントを見つけて選択し、内部のテキストを置き換えてから、[ OK ボタン。 スクリーンショットを参照してください:

5.最初に Kutools for Word ダイアログボックスで、ドキュメント全体に表示されるテキストを 見つける ボックスをクリックし、 OK ボタン。

6番目に Kutools for Word ダイアログボックスで、置き換えるテキストを入力し、[ OK ボタン。

8。 クリック OK 次のボタン マイクロソフトワード 検索と置換を終了するダイアログボックス。

この場合、選択したドキュメント内のすべての単語「Word」が同時に「Excel」に置き換えられます。


Kutools for Wordを使用すると、複数のドキュメントにまたがるさまざまなテキストを同時に簡単に見つけて置き換えることができます。

ここで強くお勧めします バッチ検索と置換 の特徴 Kutools for Word。 この機能を使用すると、複数のWord文書で異なるテキストを同時に簡単に見つけて置き換えることができます。 この機能を適用して、ドキュメント全体のテキストを検索して置換する方法を見てみましょう。

Kutools for Word :100以上の便利なWordアドインで、 60日以内に制限なしで無料でお試しいただけます.

1.をクリックしてください Kutools Plus > バッチ検索と置換 この機能を有効にします。

2。 の中に バッチ検索と置換 ダイアログボックスで、次のように構成してください。

  • 2.1)をクリックします 行を追加 ボタンの下に 検索および置換 タブ;
  • 2.2)作成された行フィールド:
A.見つけたテキストをのテキストボックスに入力してください 見つけます カラム
B.置換するテキストをのテキストボックスに入力します 交換します カラム;
C.必要に応じて、テキストを検索する場所とテキストを強調表示する色を指定します。 この場合、私は選択します フルワードマッチング, メインドキュメント とからの特定の色 検索タイプ、 で見つける特徴 列;
  • 2.3)ステップ2.1と2.2を繰り返して、見つけて置き換えるテキストをさらに追加します。
  • 2.4)をクリックします  ボタンの ファイルの種類 テキストを見つけて置き換えるWord文書を追加するセクション。
  • 2.5)をクリックします 交換します or 見つけます ボタン。 スクリーンショットを参照してください:

ノート:
1.をクリックした場合 見つけます ボタンをクリックすると、すべての検索結果が下に表示されます。 プレビュー結果 タブ。 結果をプレビューした後、すべてのテキストを置き換える場合は、をクリックしてください。 検索および置換 タブ。 それ以外の場合は、ダイアログを閉じます。

2.をクリックした場合 交換します ボタンをクリックすると、指定したすべてのテキストがすぐに新しいテキストに置き換えられ、結果も下に表示されます。 プレビュー結果 タブでを確認できます。

3.手順2で強調表示の色を指定すると、置き換えられたすべてのテキストが指定された色で強調表示され、ドキュメントで一目で簡単に見つけることができます。

3。 それを閉めて バッチ検索と置換 ダイアログボックス

この機能の詳細については、 ここをクリック....

このユーティリティの無料トライアルをご希望の場合は、 ソフトウェアを無料でダウンロード まず、上記の手順に従って操作を適用します。



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

 

Kutools For Word-100を超えるWordの高度な機能で50%の時間を節約

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

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.