Trong bài viết hôm nay, chúng tôi rất vui được chia sẻ với bạn 2 phương pháp nhanh chóng để trích xuất văn bản cùng màu từ tài liệu Word của bạn.
Đôi khi, trong khi định dạng trên tài liệu Word, chúng ta có thể áp dụng màu phông chữ cho một số văn bản để tạo điểm nhấn cho chúng. Thông thường, những từ được tô màu này là những nội dung quan trọng đáng để bạn xem xét lại. Sau đó, làm thế nào về việc xuất và thu thập chúng ở một nơi khác để kiểm tra rõ ràng sau này?
Tập trung vào nhu cầu này, chúng tôi đề xuất cho bạn 2 phím tắt nhanh chóng thay vì thao tác cắt và dán vô tận.
Phương pháp 1: Sử dụng tính năng “Tìm kiếm”
- Trước hết, hãy nhấp vào tab “Trang chủ”.
- Sau đó vào nhóm “Chỉnh sửa” để nhấp vào nút hình tam giác lộn ngược bên cạnh “Tìm”.
- Tiếp theo, chọn “Tìm kiếm nâng cao” trong danh sách.
- Trong hộp thoại “Tìm và thay thế”, đặt con trỏ vào hộp văn bản “Tìm gì” và xóa mọi nội dung ở đó nếu có.
- Tiếp theo nhấp vào nút “Thêm”.
- Bây giờ hãy nhấp vào nút “Định dạng” và chọn “Phông chữ”.
- Trong hộp thoại “Tìm phông chữ”, nhấp vào nút thả xuống phía sau “Màu phông chữ” để chọn màu chính xác mà bạn chỉ định cho văn bản của mình.
- Hãy nhớ nhấp vào “OK”.
- Bây giờ hãy quay lại hộp “Tìm và thay thế” và nhấp vào “Tìm trong”.
- Cuối cùng, chọn “Tài liệu chính”.
Sau đó, tất cả các đoạn văn bản có màu mục tiêu sẽ được chọn. Bây giờ bạn có thể nhấn “Ctrl + C” để sao chép và dán chúng vào vị trí khác chỉ trong một lần.
Phương pháp 2: Chạy Macro từ
- Trước tiên, hãy nhấp vào tab “Nhà phát triển”.
- Sau đó nhấp vào “Visual Basic” để kích hoạt trình chỉnh sửa VBA.
- Tiếp theo nhấp vào “Bình thường” và sau đó “Chèn”.
- Chọn “Mô-đun” trên menu.
- Sau đó nhấp đúp vào mô-đun để kích hoạt không gian mã hóa.
- Mã dán tiếp theo:
Sub ExtractColoredTexts()
Dim objDoc As Document, objDocAdd As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objDocAdd = Documents.Add
objDoc.Activate
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.Color = wdColorRed
.Text = ""
.Execute
End With
Do While .Find.Found
Set objRange = Selection.Range
objDocAdd.Range.InsertAfter objRange & vbCr
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
End Sub
- Bây giờ bấm vào nút "Chạy".
Sẽ có một tài liệu mới được mở với tất cả các văn bản được trích xuất.
Lưu ý: Trong dòng mã “.Font.Color = wdColorRed”, bạn cần thay thế “wdColorRed” bằng màu thực của văn bản. Để tham khảo chi tiết, bạn có thể truy cập trang này: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Địa chỉ Word vấn đề
Hầu hết chúng ta đều là người dùng Word thường xuyên. Tuy nhiên, dù vậy, chúng ta vẫn có thể gặp phải một số vấn đề khó khăn, chẳng hạn như Word bị sập. Đây là một vấn đề khá nghiêm trọng, vì các tập tin quan trọng của bạn có thể bị ảnh hưởng. Trong trường hợp như vậy, bạn nên tìm một giải pháp thay thế. Công cụ sửa lỗi dữ liệu Word sẽ khôi phục dữ liệu Word chỉ trong vài phút.
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 công cụ sửa lỗi dữ liệu 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