In today’s post, we are glad to share with you the effective way to remove a specific highlight color from your Word document.
In one of our previous articles, we have already talked about the ways to remove highlight colors. For detailed information, you can refer to this link: 5 Methods to Remove Highlighting or Shading in Your Word Document
Today, let look at another case that a document can contain multiple highlight colors to stand out different type of contents. In such a case, the usual ways fail to recognize one specific highlight color. As a matter of fact, the only quick and effective way is to run a Word macro.
Now take a look at bellowing approach.
Remove a Specific Highlight Color via VBA
- First and foremost, click “Developer” tab in the Ribbon.
- Then click “Visual Basic” to trigger the VBA editor in Word. And considering you may not have the “Developer” tab available yet, you can press “Alt+ F11” instead.
- Next click “Normal” project on the left column in the editor.
- Then click “Insert” tab on the menu bar.
- On the drop-down menu, choose “Module”.
- Now double click on new module to open the coding area.
- Paste the following macro on the module:
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
- Then click “Run” button or hit “F5” to execute codes.
- Next, there is the “Highlight Color” box. There is a value for each color. Just enter the value related to the highlight color to be removed.
- Last but not the least, click “OK” to proceed.
- When it’s done, you will receive such a message box:
Here is the possible outcome:
Keep Your Data Safe
Data integrity can be easily compromised. It’s time to take preventive actions before all is too late. For example, the most recommended way is to back up files regularly. Always make sure you have the latest version to resort to while something unexpected happens. Otherwise, you will have to go through the Word recovery to get data back.
Author Introduction:
Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including fix xlsx and pdf repair software products. For more information visit www.datanumen.com
Leave a Reply