Trong bài viết này, chúng tôi rất vui được giới thiệu cho bạn 2 phương pháp hữu ích để thay thế màu đánh dấu trong tài liệu Word của bạn.
Đôi khi bạn có thể đánh dấu các nội dung khác nhau bằng các màu khác nhau. Nhưng không giống như màu phông chữ, bạn không thể sử dụng “Tìm và thay thế” để tìm văn bản có màu đánh dấu cụ thể và thay thế bằng màu khác.
Vì vậy, chúng ta sẽ cần một số cách giải quyết. Sau đây là 2 cách có sẵn cho các trường hợp khác nhau.
Phương pháp 1: Thay thế tất cả các màu nổi bật bằng cùng một màu
Màu tô sáng được liên kết với hộp thoại “Tìm và Thay thế” là màu hiện tại được chọn trong biểu tượng Tô sáng.
- Trước hết, trong tab “Trang chủ” và trong nhóm “Phông chữ”, nhấp vào nút thả xuống trên lệnh “Màu tô sáng văn bản”. Chọn một màu mà bạn muốn thay đổi tất cả các màu tô sáng. Ví dụ, chúng tôi chọn “Bright Green” ở đây.
- Sau đó nhấn “Ctrl + H” để kích hoạt hộp thoại “Tìm và Thay thế”.
- Đặt con trỏ bên trong hộp văn bản “Find what”.
- Nhấp vào “Thêm” để đưa ra nhiều tùy chọn hơn và nhấp vào “Định dạng”.
- Và chọn “Đánh dấu”.
- Tiếp theo đặt con trỏ vào hộp “Thay thế bằng” và lặp lại bước 4 và 5.
- Cuối cùng, nhấp vào “Thay thế tất cả”.
Bây giờ bạn đã thay thế tất cả các màu nổi bật bằng màu xanh lá cây tươi sáng.
Phương pháp 2: Thay thế một màu tô sáng cụ thể bằng một màu khác
Để hoàn thành nhiệm vụ này, cần có một macro.
- Trước tiên, hãy nhấn tổ hợp phím “Alt + F11” để mở trình chỉnh sửa VBA.
- Tiếp theo, nhấp vào dự án "Bình thường" ở cột bên trái.
- Sau đó nhấp vào tab “Chèn” trên thanh menu.
- Và chọn “Mô-đun” trên menu thả xuống đó.
- Mở mô-đun mới bằng cách nhấp đúp.
- Bây giờ dán mã sau đây:
Sub ReplaceOneHighlightColorToAnother()
Dim strFindColor As String
Dim strReplaceColor As String
Dim objDoc As Document
Dim objRange As Range
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strFindColor = InputBox("Specify a color (enter the value):", "Specify Highlight Color")
strReplaceColor = InputBox("Specify a new color (enter the value):", "New Highlight Color")
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.Highlight = True
Do While .Execute
If Selection.Range.HighlightColorIndex = strFindColor Then
Set objRange = Selection.Range
objRange.HighlightColorIndex = strReplaceColor
Selection.Collapse wdCollapseEnd
End If
Loop
End With
End With
Application.ScreenUpdating = True
End Sub
- Tiếp theo nhấp vào nút “Run” hoặc nhấn “F5”.
- Sau đó, trong hộp “Chỉ định màu tô sáng”, hãy nhập giá trị đại diện cho màu sẽ được thay thế. Để lấy giá trị tương ứng của một màu cụ thể, bạn có thể truy cập liên kết này: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
- Chẳng hạn, nếu chúng ta muốn thay thế màu vàng bằng màu xanh lá cây tươi sáng, chúng ta nhập “7” vào hộp “Specify Highlight Color” và nhấp vào “OK”.
- Sau đó, trong hộp “New Highlight Color”, nhập giá trị của màu mới và nhấp vào “OK”.
Đây là kết quả có thể xảy ra của việc thay thế màu vàng bằng màu xanh lá cây tươi sáng.
Tránh thảm họa mất dữ liệu
Word là một trợ thủ đắc lực trong công việc hàng ngày của chúng ta. Vì vậy, không khó để hình dung ra thảm họa mà nó có thể mang lại khi sụp đổ. Để tránh mất dữ liệu quan trọng, bạn có thể giữ một sửa từ công cụ trước. Với tiện ích như vậy trong tay, bạn không cần phải lo lắng về việc mất 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 xlsx hỏng 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