如何在多個Word文檔中查找和替換內容

Word解決方案 2025 年 9 月 28 日

在今天的文章中，我們很高興通知您如何在多個Word文檔中查找和替換內容的方法。

一般來說，most Word用戶非常熟悉軟件中的“查找和替換”功能。它可以幫助我們完成整個文檔的批處理過程，從而節省了很多時間。然後，您是否考慮過在多文檔中使用此選項，例如特定文件夾下的所有文件？

由於總是需要搜索和替換一批文件中的內容，因此實現該功能將是一件很不錯的事情。我們的方法是使用宏。請繼續閱讀以了解更多詳細信息。

安裝和運行宏的步驟

第一和前ost，將所有文件放在一個文件夾中，然後打開Word。
然後點擊“開發人員”標籤。
接下來單擊“ Visual Basic”。或者只需按“ Alt + F11”以觸發VBA編輯器。
然後單擊“普通”項目。
接下來單擊“插入”選項卡，然後選擇“模塊”。
現在，您已經成功插入了一個新模塊。雙擊以打開編碼空間。
將以下代碼粘貼到此處：

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub