ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
登録
x

or

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

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

VBAコードを使用して、複数のワード文書のテキストを同時に検索して置き換える


複数のドキュメントを簡単に1つに結合/マージ:

ドキュメントをマージする の有用性 Kutools for Word 複数のドキュメントを1つにすばやく結合するのに役立ちます。 あなたは次のことが必要です。

  • 結合する文書を1つに選択します。
  • 結合された各文書間に区切りを指定します。
  • マージを開始します。 スクリーンショットを見る:

Kutools for Word100便利なWordアドイン以上で、自由に30日に試してみてください。 今すぐダウンロードして無料トライアル!

Kutools for Word: 新しい100新機能を追加 Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019に転送します。
Office Tab:有効 タブでの編集とOfficeのブラウジング、ちょうどChrome、Firefox、IE 8 / 9 / 10のように。
Classic Menu for Office: オフィス2003の古い外観をもたらす Office 2007、2010、2013、2016、および2019に送信します。

VBAコードを使用して、複数のワード文書のテキストを同時に検索して置き換える

1。 押す 他の + F11 を開く アプリケーション用Microsoft Visual Basic 窓。

2。 の中に アプリケーション用Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール次の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。 2番目の Kutools for Word ダイアログボックスで、置き換えるテキストを入力して、 OK ボタン。

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

この場合、選択された文書のすべての単語「Word」は同時に「Excel」に置き換えられます。


Office Tab - Wordでの複数の文書のタブ付きブラウジング、編集、および管理:

Officeタブは、Google Chrome、Internet Explorerの新しいバージョン、FirefoxなどのWebブラウザで見られるタブ付きのインターフェイスをMicrosoft Wordにもたらします。 それ 意志 時間を節約するツールであり、あなたの仕事には変わりません。 以下のデモをご覧ください:

Officeタブの無料トライアルをクリックしてください!




Kutools for Word

Word 100、2003、2007、2010、2013、2016のための2019高度な関数以上

ショット - クツール -  700-225-kte

その他の機能 | 無料ダウンロード | 何百もの関数に対して$ 39.00のみ

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Paul Oz · 2 years ago
    Hi all,
    I am new to the whole VBA thing and I Love love love this code!
    I have 5000+ docs to review and if this works it will save heaps of time!
    I have the code above running however i can see that it does not cater for replacing text in footers, Only headers and the body of the doc.
    Can anyone assist in extending this to the entire document.
    P.S. not sure if this is relevant but the list of words that i need to replace is the same for headers, footers and the body...
    Any help would really be appreciated!
    • To post as a guest, your comment is unpublished.
      blue_crayon · 1 years ago
      You can edit the footer by using almost identical code that the header uses. Copy everything from "Begin Header Updates" to "End Header Updates" and paste it directly after.

      Then, in this pasted section, find the word "wdSeekCurrentPageHeader" and change it to "wdSeekCurrentPageFooter".
  • To post as a guest, your comment is unpublished.
    Terence · 2 years ago
    Out of interest what does the line: Application.Run macroname:="NEW MACROS" do?
    The rest of the code makes sense to me (used to VBA in Excel) but I can't figure out why you need to execute another piece of code here.
    Thanks for the great tool though.
  • To post as a guest, your comment is unpublished.
    Mike · 2 years ago
    This macro was amazing..is there any code to update multiple excel files,spss files.also is there is any macro to update the header and footer on multiple word documents .

    Any help is appreciated .thanks !
  • To post as a guest, your comment is unpublished.
    Tracy · 2 years ago
    Just brilliant, saved me lots of time, thank you
  • To post as a guest, your comment is unpublished.
    Exis · 2 years ago
    You can always try a 3rd party tool to do this which makes it very easy: www.officefindreplace.com