Trong bài viết hôm nay, chúng tôi rất vui được chia sẻ với bạn cách hiệu quả để xóa màu tô sáng cụ thể khỏi tài liệu Word của bạn.
Trong một trong những bài viết trước của chúng tôi, chúng tôi đã nói về cách loại bỏ các màu nổi bật. Để biết thông tin chi tiết, bạn có thể tham khảo liên kết này: 5 phương pháp để loại bỏ tô sáng hoặc bóng mờ trong tài liệu Word của bạn
Hôm nay, chúng ta hãy xem xét một trường hợp khác mà một tài liệu có thể chứa nhiều màu nổi bật để làm nổi bật các loại nội dung khác nhau. Trong trường hợp như vậy, các cách thông thường không thể nhận ra một màu đánh dấu cụ thể. Trên thực tế, cách duy nhất nhanh chóng và hiệu quả là chạy macro Word.
Bây giờ hãy xem cách tiếp cận dưới đây.
Xóa một màu nổi bật cụ thể qua VBA
- Trước tiên, hãy nhấp vào tab “Nhà phát triển” trên thanh Ribbon.
- Sau đó nhấp vào “Visual Basic” để kích hoạt trình chỉnh sửa VBA trong Word. Và xem xét rằng bạn có thể chưa có sẵn tab “Nhà phát triển”, thay vào đó, bạn có thể nhấn “Alt + F11”.
- Tiếp theo, nhấp vào dự án “Bình thường” ở cột bên trái trong trình chỉnh sửa.
- Sau đó nhấp vào tab “Chèn” trên thanh menu.
- Trên menu thả xuống, chọn “Mô-đun”.
- Bây giờ, nhấp đúp chuột vào mô-đun mới để mở vùng mã hóa.
- Dán macro sau vào mô-đun:
Sub RemoveSpecificHighlightColor()
Dim objDoc As Document
Dim objRange As Range
Dim strHighlightColor As String
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strHighlightColor = InputBox("Choose a Highlight colour to remove (enter the value):" & vbNewLine & _
vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
vbTab & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
vbTab & "White" & vbTab & vbTab & "8" & vbNewLine & _
vbTab & "Yellow" & vbTab & vbTab & "7", "Highlight Color")
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.Highlight = True
Do While .Execute
If Selection.Range.HighlightColorIndex = strHighlightColor Then
Set objRange = Selection.Range
objRange.HighlightColorIndex = wdNoHighlight
Selection.Collapse wdCollapseEnd
End If
Loop
End With
End With
MsgBox ("The chosen highlight color has been removed in the document.")
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
- Sau đó nhấp vào nút “Run” hoặc nhấn “F5” để thực thi mã.
- Tiếp theo, có hộp “Màu nổi bật”. Có một giá trị cho mỗi màu. Chỉ cần nhập giá trị liên quan đến màu đánh dấu cần xóa.
- Cuối cùng nhưng không kém phần quan trọng, hãy nhấp vào “OK” để tiếp tục.
- Khi hoàn tất, bạn sẽ nhận được hộp thông báo như sau:
Đây là kết quả có thể xảy ra:
Giữ dữ liệu của bạn an toàn
Tính toàn vẹn dữ liệu có thể dễ dàng bị xâm phạm. Đã đến lúc thực hiện các biện pháp phòng ngừa trước khi quá muộn. Ví dụ, cách được khuyến nghị nhất là sao lưu tệp thường xuyên. Luôn đảm bảo bạn có phiên bản mới nhất để sử dụng khi có sự cố bất ngờ xảy ra. Nếu không, bạn sẽ phải mất công tìm lại từ đầu. Phục hồi từ để 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 sửa xlsx 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