Trong bài viết hôm nay, chúng tôi vui mừng thông báo tới các bạn cách tìm và thay thế nội dung trong nhiều tài liệu Word.
Nhìn chung, hầu hết người dùng Word đều khá quen thuộc với tính năng "Tìm và thay thế" trong phần mềm. Nó giúp chúng ta xử lý hàng loạt văn bản trong toàn bộ tài liệu, tiết kiệm được rất nhiều thời gian. Vậy bạn đã bao giờ nghĩ đến việc sử dụng tùy chọn này với nhiều tài liệu, chẳng hạn như tất cả các tệp trong một thư mục cụ thể chưa?
Vì luôn có nhu cầu tìm kiếm và thay thế nội dung trong một loạt tệp nên sẽ rất tuyệt nếu chức năng này được hiện thực hóa. Và cách của chúng tôi là sử dụng macro. Xin vui lòng đọc tiếp để tìm hiểu thêm chi tiết.
Các bước cài đặt và chạy macro
- Trước hết, hãy đặt tất cả các tập tin vào cùng một thư mục và mở Word.
- Sau đó nhấp vào tab "Nhà phát triển".
- Tiếp theo bấm vào “Visual Basic”. Hoặc chỉ cần nhấn “Alt+ F11” để kích hoạt trình soạn thảo VBA.
- Sau đó nhấp vào dự án "Bình thường".
- Tiếp theo nhấp vào tab “Chèn” và sau đó chọn “Mô-đun”.
- Bây giờ bạn đã chèn thành công một mô-đun mới. Nhấp đúp chuột vào nó để mở không gian mã hóa.
- Dán các mã dưới đây vào đó:
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
- Cuối cùng, nhấp vào "Chạy".
- Bây giờ sẽ có một hộp nhập liệu bật lên. Nhập đường dẫn thư mục nơi bạn lưu trữ tài liệu.
- Sau đó nhấp vào “OK” và có hộp thứ hai. Nhập văn bản bạn muốn tìm.
- Tiếp tục nhấp vào “OK” để mở hộp nhập thứ ba, trong đó bạn nhập văn bản thay thế và nhấp vào nút “OK” ở đó. Macro sẽ tự động thay thế tất cả nội dung và lưu thay đổi.
Như bạn thấy, macro này cung cấp cho bạn 3 hộp nhập để bạn có thể nhập đường dẫn thư mục, tìm và thay thế văn bản. Vì vậy, bạn có thể gán một nút cho macro này và thêm nó vào “Thanh công cụ truy cập nhanh” để sử dụng lại.
Về cách gán nút cho macro, bạn có thể đọc bài viết này: Cách xóa định dạng của văn bản đã dán bằng Macro và VBA trong Word của bạn
Bảo vệ dữ liệu có giá trị
Các lỗi và sự cố có thể xảy ra trong Word. Hậu quả là các tài liệu quý giá có thể bị hư hỏng. Trong khi gặp phải tài liệu thiệt hại, bạn nên sử dụng một công cụ khôi phục chuyên nghiệp để lấy lại dữ liệu.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm thiệt hại xls và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm