Làm thế nào để tìm kiếm và thay thế trên nhiều tệp trong word?
Nếu bạn có vài chục tệp từ chứa cùng một nội dung (chẳng hạn như Đầu trang, chân trang, một số từ hoặc số đặc biệt) và bạn cần thay thế cùng một nội dung trên các tài liệu đó trong Word. Làm thế nào để bạn hoàn thành công việc một cách dễ dàng hơn? Chắc chắn, bạn có thể mở từng tệp một để thay thế cùng một nội dung, nhưng sẽ rất tốn thời gian và rắc rối. Hướng dẫn này sẽ chỉ cho bạn một cách phức tạp để thay thế cùng một nội dung trong nhiều tài liệu trong Word cùng một lúc.
Tìm và thay thế văn bản trên nhiều tài liệu từ cùng một lúc bằng mã VBA
Dễ dàng tìm và thay thế các văn bản khác nhau trên nhiều tài liệu cùng một lúc với Kutools cho Word
Tìm và thay thế văn bản trên nhiều tài liệu từ cùng một lúc bằng mã VBA
1. nhấn Khác + F11 để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun, sau đó sao chép mã VBA sau vào cửa sổ Mô-đun.
Mã VBA: Tìm kiếm và thay thế cùng một nội dung trên nhiều tài liệu cùng một lúc
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. Nhấn nút F5 phím để chạy mã.
4. Trong phần mở đầu Xem , vui lòng tìm và chọn các tài liệu bạn sẽ tìm thấy và thay thế văn bản bên trong, sau đó bấm vào OK cái nút. Xem ảnh chụp màn hình:
5. Trong lần đầu tiên Kutools cho Word hộp thoại, nhập văn bản bạn sẽ tìm thấy trên các tài liệu vào Tìm và sau đó bấm vào OK .
6. Trong giây Kutools cho Word hộp thoại, nhập văn bản bạn sẽ thay thế bằng và nhấp vào OK .
8. Nhấp vào OK nút tiếp theo Microsoft Word hộp thoại để kết thúc tìm và thay thế.
Trong trường hợp này, tất cả các từ "Word" trong các tài liệu đã chọn được thay thế bằng "Excel" cùng một lúc.
Dễ dàng tìm và thay thế các văn bản khác nhau trên nhiều tài liệu cùng một lúc với Kutools cho Word
Ở đây rất khuyên bạn nên Tìm và thay thế hàng loạt tính năng của Kutools cho Word. Với tính năng này, bạn có thể dễ dàng tìm và thay thế các văn bản khác nhau trên nhiều tài liệu Word cùng một lúc. Hãy xem cách áp dụng tính năng này để tìm và thay thế văn bản trên các tài liệu.
Kutools cho Word : với hơn 100 phần bổ trợ Word tiện dụng, miễn phí để thử mà không có giới hạn trong 60 ngày.
1. Vui lòng nhấp vào Kutools Plus > Tìm và thay thế hàng loạt để kích hoạt tính năng.
2. bên trong Tìm và thay thế hàng loạt hộp thoại, vui lòng cấu hình như sau.
- 2.1) Nhấp vào Thêm hàng dưới nút Tìm và Thay thế chuyển hướng;
- 2.2) Trong các trường hàng đã tạo:
B. Nhập văn bản bạn sẽ thay thế bằng vào hộp văn bản trong Thay thế cột;
C. Chỉ định kiểu tìm kiếm, nơi tìm văn bản và màu để đánh dấu văn bản khi bạn cần. Trong trường hợp này, tôi chọn Đối sánh từ đầy đủ, Tài liệu chính và một màu nhất định từ Loại tìm kiếm, Tìm trong và Đánh dấu cột;
- 2.3) Lặp lại bước 2.1 và 2.2 để thêm các văn bản khác mà bạn sẽ tìm thấy và thay thế;
- 2.4) Nhấp vào nút trong File Type để thêm các tài liệu Word mà bạn sẽ tìm và thay thế các văn bản;
- 2.5) Nhấp vào Thay thế or Tìm kiếm cái nút. Xem ảnh chụp màn hình:
3. Đóng Tìm và thay thế hàng loạt hộp thoại
Để biết thêm thông tin về tính năng này, vui lòng bấm vào đây....
Nếu bạn muốn dùng thử miễn phí tiện ích này, vui lòng truy cập tải xuống miễn phí phần mềm đầu tiên, và sau đó đi đến áp dụng hoạt động theo các bước trên.
Công cụ năng suất văn phòng tốt nhất
Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!
🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung / Viết lại văn bản / Tóm tắt tài liệu / Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word
📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF / Xuất trang dưới dạng hình ảnh / In nhiều tập tin cùng một lúchữu ích. Cảm ơn !
✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp / Thay đổi kích thước tất cả hình ảnh / Hoán đổi hàng và cột của bảng / Chuyển bảng thành văn bảnhữu ích. Cảm ơn !
🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / Tất cả các tiêu đề / Hộp văn bản / Các siêu liên kết / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !
➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách / Hộp kiểm tra / Nút radio / Mã QR / Mã vạch / Bảng đường chéo / Chú thích phương trình / Hình ảnh Caption / Bảng chú thích / Nhiều Hình Ảnh / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !
???? Lựa chọn chính xác: Xác định trang cụ thể / bảng / hình dạng / đoạn văn tiêu đề / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !
⭐ Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào / tự động chèn văn bản lặp đi lặp lại / chuyển đổi liền mạch giữa các cửa sổ tài liệu / 11 công cụ chuyển đổihữu ích. Cảm ơn !