クッキーは、私たちは私たちのサービスを提供するのに役立ちます。 当社のサービスを使用することで、クッキーの我々の使用に同意するものとします。
ヒント:他の言語は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.
    Pia Wilson · 4 years ago
    What I am trying to replace is a web address on our standard documents. I tried just doing finding the web address within the hyperlink but its not working as although this text has changed the view when not toggled to see the field code is still showing the old address.

    [b]EG[/b]
    With Selection.Find
    .Text = "HYPERLINK ""http://www.testsite.co.uk"" " 'Find What
    .Replacement.Text = "HYPERLINK ""http://www.testtwo.co.uk"" " 'Replace With
  • To post as a guest, your comment is unpublished.
    Greg Simonis · 4 years ago
    When I run it, it gets hung up and stops at:
    Application.Run macroname:="NEWMACROS"
    and when I step into it, it tells me I have a Compile error: Named argument not found.
    Now what?
  • To post as a guest, your comment is unpublished.
    Jebidiah Springfield · 4 years ago
    Wow you are a saint for putting this macro together! I am listening to 'Epic Battle Music' on Songza because I am such an amatuer Macro-smith and it's the only way I can make it through the pain and agony of crafting programming spells.

    Anyway, my point I am going to make is a spent a lot of time on Friday troubleshooting the part where you actually put in the text you want to find and putting in the text you want to replace - I did not quite understand this part in terms of where I put my "find" word text and "replace" word text:

    [quote]Note:you can change the Text = "search”, Replacement.Text = "find” to specify the content to be searched and the content to be applied for replacement.
    [/quote]

    I read over this again today and I wish to respectfully clarify for other programming non-initiates - in the section of VBA where you have copied and pasted the original programming language, make sure you put an end ' after the [i]what [/i] and a ' after the [i]with[/i] (see example below) - in my example, I am looking for multiple documents to replace Pizza with Stromboli:

    .Text = "Pizza" 'Find What'
    .Replacement.Text = "Stromboli" 'Replace With'
  • To post as a guest, your comment is unpublished.
    James R · 5 years ago
    Could this VBA technique be adapted to work for Publisher files? For example by changing *.docx to *.pub ?
  • To post as a guest, your comment is unpublished.
    Patrick · 5 years ago
    When you run the macro, the "Open" window will open. Navigate to the folder that contains the files you need to make the change to, then click once on the first one, then, while holding down the "Ctrl" key, click on the other files also requiring the find/replace. If all files in the folder need the action, just press the "Ctrl" and "A" keys. Then click on "Open" or press the "Enter" key, and the macro will begin.

    I should warn you, as I've performed this dozens of times at work: The macro will result in the changes being made only to the *body* of the Word document; headers, footers, and title text/alt-text will be excluded. If you have text in the aforementioned portions that needs replacing, you will have to perform a standard find/replace across individual documents.