如何從 Excel 中查找和替換 Word 文檔中的文本？
在 Word 文檔中，我們可以應用查找和替換功能快速查找和替換一個文本。 但是，如果需要查找和替換多個文本，將文本逐個輸入到查找和替換功能中會很耗時。 在這種情況下，您可以將查找和替換文本輸入到單元格列表中，并在 Excel 中的 VBA 代碼的幫助下輕松完成這項工作。 在本文中，我還將介紹一個有用的功能，可以批量查找和替換多個 Word 文檔中的文本。
使用 VBA 代碼從 Excel 中查找和替換一個 Word 文檔中的多個文本
使用 VBA 代碼從 Excel 中查找和替換多個 Word 文檔中的多個文本
使用強大的功能查找和替換多個 Word 文檔中的多個文本
使用 VBA 代碼從 Excel 中查找和替換一個 Word 文檔中的多個文本如果您只想在一個 Word 文件中查找和替換某些文本，下面的 VBA 代碼可以幫到您。
1. 在 Excel 工作表中，創建一個包含要查找和替換的文本的列，以及另一個包含要替換的文本的列，如下圖所示。 然后按 Alt + F11 同時打開 Microsoft Visual Basic應用程序 窗口。
2。 然后，點擊 插頁 > 模塊，將以下 VBA 代碼復制并粘貼到窗口中。
VBA 代碼：在一個 Word 文件中查找和替換多個文本
Sub replace_texts_range_of_cells()Updateby ExtendOfficeDim xWordApp As Word.ApplicationDim xDoc As Word.documentDim xRng As RangeDim I As IntegerDim xFileDlg As FileDialogOn Error GoTo ExitSubSet xFileDlg = Application.FileDialog(msoFileDialogFilePicker)xFileDlg.AllowMultiSelect = FalsexFileDlg.Filters.Add "Word document", "*.docx; *.doc; *.docm"xFileDlg.FilterIndex = 2If xFileDlg.Show <> -1 Then GoTo ExitSubSet xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)If xRng.Areas.Count <> 2 ThenMsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"GoTo ExitSubEnd IfIf (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _(xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) ThenMsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"GoTo ExitSubEnd IfSet xWordApp = CreateObject("Word.application")xWordApp.Visible = TrueSet xDoc = xWordApp.documents.Open(xFileDlg.SelectedItems.Item(1))For I = 1 To xRng.Areas.Item(1).Cells.CountWith xDoc.Application.Selection.Find.ClearFormatting.Replacement.ClearFormatting.Text = xRng.Areas.Item(1).Cells.Item(I).Value.Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithxDoc.Application.Selection.Find.Execute Replace:=wdReplaceAllNextExitSub:Set xRng = NothingSet xFileDlg = NothingSet xWordApp = NothingSet xDoc = NothingEnd SubCopy3. 粘貼代碼后，仍然在 Microsoft Visual Basic應用程序 窗口中，單擊 工具 > 參考資料，請參見屏幕截圖：
4。 在彈出的 參考– VBAProject 對話框中，選擇 Microsoft Word 16.0對象庫 從列表框中，看截圖：
5。 點擊 OK 按鈕關閉對話框，現在，按 F5 鍵運行此代碼，在彈出的瀏覽窗口中，選擇要替換文本的 Word 文件，看截圖：
6。 然后，點擊 OK, 在以下對話框中，按 按Ctrl 鍵分別選擇要使用的原始文本和新文本單元格，請參見屏幕截圖：
7。 然后，單擊 OK 按鈕，現在，文本被找到并替換為您指定文檔中的新文本，并且文件也正在打開，您應該保存它以保留更改。
使用 VBA 代碼從 Excel 中查找和替換多個 Word 文檔中的多個文本在這里，我還創建了一個 VBA 代碼，用于在多個 Word 文檔中查找和替換多個文本，請這樣做：
1. 打開包含兩列要替換和替換的值的 Excel 文件，如下圖所示，然后按 Alt + F11 同時打開 Microsoft Visual Basic應用程序 窗口。
2。 然后，點擊 插頁 > 模塊，將以下 VBA 代碼復制并粘貼到窗口中。
VBA 代碼：在多個 Word 文件中查找和替換多個文本
Sub FindReplaceAcrossMultipleWorddocuments()Updateby ExtendOfficeDim xWordApp As Word.ApplicationDim xDoc As Word.documentDim xRng As RangeDim I As IntegerDim xFolderDlg As FileDialogDim xFSO As scripting.FileSystemObjectDim xFile As FileOn Error GoTo ExitSubSet xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)If xFolderDlg.Show <> -1 Then GoTo ExitSubSet xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)If xRng.Areas.Count <> 2 ThenMsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"GoTo ExitSubEnd IfIf (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _(xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) ThenMsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"GoTo ExitSubEnd IfSet xFSO = New scripting.FileSystemObjectSet xWordApp = CreateObject("Word.application")xWordApp.Visible = TrueFor Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).FilesIf VBA.InStr(xFile.Type, "Microsoft Word") > 0 ThenSet xDoc = xWordApp.documents.Open(xFile.Path)For I = 1 To xRng.Areas.Item(1).Cells.CountWith xDoc.Application.Selection.Find.ClearFormatting.Replacement.ClearFormatting.Text = xRng.Areas.Item(1).Cells.Item(I).Value.Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithxDoc.Application.Selection.Find.Execute Replace:=wdReplaceAllNextxDoc.Close wdSaveChangesEnd IfNextxWordApp.QuitMsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"ExitSub:Set xRng = NothingSet xFolderDlg = NothingSet xWordApp = NothingSet xDoc = NothingEnd SubCopy3。 仍在 Microsoft Visual Basic應用程序 窗口中，單擊 工具 > 參考資料在 參考– VBAProject 對話框中，選擇 Microsoft Word 16.0對象庫 和 Microsoft腳本運行時 列表框中的選項，請參見屏幕截圖：
4. 勾選兩個選項后，點擊 OK 關閉對話框，然后繼續按 F5 執行此代碼的關鍵，在開頭 瀏覽 窗口，選擇一個文件夾，其中包含要執行查找和替換的 Word 文檔，看截圖：
5。 點擊 OK 按鈕，在彈出的對話框中，按 按Ctrl 鍵分別選擇要使用的原始文本和新文本列，請參見屏幕截圖：
6。 最后點擊 OK, 并將這些文件中的原始文本替換為新文本，完成后會彈出一個對話框，如下圖所示：
7。 點擊 OK 關閉對話框。 您可以轉到文件來檢查轉換后的結果。
使用強大的功能查找和替換多個 Word 文檔中的多個文本本節，我將討論如何從 Word 而不是 Excel 中批量查找和替換多個 Word 文檔中的文本。 借助強大的工具——Kutools for Word，您可以快速查找和替換特定文本，并將其替換為主文件、頁眉、頁腳、注釋等中的新文本，并根據需要突出顯示結果。
1. 打開一個 Word 文件，然后單擊 Kutools 加 > 批量查找和替換，請參見屏幕截圖：
2。 在開 批量查找和替換 對話框，請執行以下操作：
點擊 地址 按鈕添加要查找和替換文本的 Word 文件；在左側窗格中，單擊 添加行 從頂部功能區；在插入的字段中，將原始文本和新文本輸入到 找到最適合您的地方 和 更換 要查找和替換的單獨列。 同樣，您可以根據需要指定一種顏色來突出顯示替換的文本。3. 創建搜索條件后，單擊 更換 按鈕去 預覽結果 選項卡以查看查找和替換結果。 看截圖：
4。 然后，點擊 關閉 按鈕，會彈出提示框提醒您是否要保存該場景，點擊 是 保存它，然后單擊 沒有 要忽略它，請參見屏幕截圖：
Tips：此功能還可以幫助實現以下操作：查找和替換多個Word文檔中的特殊字符；在多個 Word 文檔中查找并替換具有特定格式的多個字符串；在多個 txt/htm/html 文件中查找和替換多個字符串。單擊以了解此功能的更多詳細信息...
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
