亞寵展、全球寵物產業(yè)風向標——亞洲寵物展覽會深度解析
589
2025-03-31
如何在Word中跨多個文件搜索和替換？
如何在Word中跨多個文件搜索和替換？
如果您有幾十個包含相同內容（例如頁眉，頁腳，某些特殊單詞或數(shù)字）的Word文件，則需要在Word中的那些文檔中替換相同的內容。 您如何更輕松地快速完成工作？ 當然，您可以一個個地打開這些文件以替換相同的內容，但這將很耗時且麻煩。 本教程將向您展示一種巧妙的方式來一次替換Word中多個文檔中的相同內容。
使用VBA代碼同時查找和替換多個Word文檔中的文本
使用 Kutools for Word 同時輕松查找和替換多個文檔中的不同文本 使用VBA代碼同時查找和替換多個Word文檔中的文本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.在第二 Kutools for Word 對話框中，輸入將替換為的文本，然后單擊 OK 按鈕。
8。 點擊 OK 下一個按鈕 微軟Word 對話框以完成查找和替換。
在這種情況下，所選文檔中的所有單詞“ Word”將同時替換為“ Excel”。
使用 Kutools for Word 同時輕松查找和替換多個文檔中的不同文本在這里強烈推薦 批量查找和替換 的特點 Kutools for Word。 使用此功能，您可以輕松地同時在多個Word文檔中查找和替換不同的文本。 讓我們看看如何應用此功能來查找和替換文檔中的文本。
Kutools for Word ：具有100多個方便的Word加載項， 免費試用，沒有限制 60 天.
1.請點擊 Kutools 加 > 批量查找和替換 啟用該功能。
2.在 批量查找和替換 對話框，請進行以下配置。
2.1）點擊 添加行 按鈕下 查找和替換 標簽; 2.2）在創(chuàng)建的行字段中：A.在下面的文本框中輸入您將找到的文本 找到最適合您的地方
2.3）重復步驟2.1和2.2，添加更多您將找到并替換的文本；
2.4）點擊 按鈕在 文件類型 添加要在其中查找和替換文本的Word文檔的部分；
2.5）點擊 更換 or 找到最適合您的地方 按鈕。 看截圖：
欄
B.將您要替換為的文本輸入到 更換柱;
C.指定搜索類型，在哪里可以找到文本，并根據(jù)需要使用顏色突出顯示文本。 在這種情況下，我選擇 全字匹配, 主要文件 并從 搜索類型， 查找 和 近期亮點 列;:
1.如果單擊 找到最適合您的地方 按鈕，所有查找結果將顯示在 預覽結果 標簽。 預覽結果后，如果要替換所有文本，請單擊 查找和替換 標簽。 否則，請關閉對話框。
2.如果單擊 更換 按鈕，所有指定的文本將立即被新的文本替換，結果也將顯示在 預覽結果 標簽。
3.如果在步驟2中指定了突出顯示顏色，則所有替換的文本將以指定的顏色突出顯示，您可以在文檔中一目了然地找到它們。
3.關閉 批量查找和替換 對話框
有關此功能的更多信息，請 點擊這里....
如果您想免費試用該實用程序，請轉到 首先，然后按照上述步驟進行操作。
最佳辦公生產力工具
Kutools for Word - 通過 Over 提升您的文字體驗 100 顯著特點！?? 文檔掌握: 分頁 / 合并文件 / 以各種格式導出選擇（PDF/TXT/DOC/XLSX） / 批量轉換為PDF / 將頁面導出為圖像 / 一次打印多個文件 ...
? 內容編輯: 批量查找和替換跨多個文件 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字 ...
?? 輕松清潔: 掃開 多余的空間 / 分節(jié)符 / 所有標題 / 文本框 / 超鏈接 / 如需更多刪除工具，請前往我們的刪除組
? 創(chuàng)意插入: 插頁 千位分隔符 / 復選框 / 單選按鈕 / 二維碼 / 條碼 / 對角線表 / 公式標題 / 圖片說明 / 表標題 / 多張圖片 / 在我們的插入組中發(fā)現(xiàn)更多信息
?? 精準選擇: 精確定位特定頁面 / 表 / 形狀 / 標題段落 / 使用我們的選擇組輕松導航
? 星級增強: 快速導航至任何位置 / 自動插入重復文本 / 在文檔窗口之間無縫切換 / 11 轉換工具 ...
使用 Kutools 轉換您的 Word 任務。 ?? 立即下載并試用 30 天 ??。
版權聲明：本文內容由網(wǎng)絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內刪除侵權內容。
版權聲明：本文內容由網(wǎng)絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內刪除侵權內容。
相關文章
