Remove highlight with specific color

rekent · #1 08-01-2020, 07:19 AM

I am using the below code to remove turquoise highlight from my document and it works well with one exception - it will not remove highlighting from the very first word of the document if that word is highlighted. Can anyone point me to the correction that I should make to fix that bug? Credit to forum member gmayor for this code found over on VBA Express.

Code:

Sub ClearHighlight()
  Dim hiliRng As Range

    For Each hiliRng In ActiveDocument.StoryRanges
        With hiliRng.Find
            .Highlight = True
            .Execute
        End With

        Do While hiliRng.Find.Execute
            If hiliRng.HighlightColorIndex = wdTurquoise Then
                hiliRng.HighlightColorIndex = wdNoHighlight
                hiliRng.Collapse 0
            End If
        Loop

        If hiliRng.StoryType <> wdMainTextStory Then
            While Not (hiliRng.NextStoryRange Is Nothing)
                Set hiliRng = hiliRng.NextStoryRange
                Do While hiliRng.Find.Execute
                    If hiliRng.HighlightColorIndex = wdTurquoise Then
                        hiliRng.HighlightColorIndex = wdNoHighlight
                        hiliRng.Collapse 0
                    End If
                Loop
            Wend
        End If
    
    Next hiliRng
    Set hiliRng = Nothing

End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find/remove underline with specific color	eduzs	Word VBA	9	07-27-2020 07:43 AM
VBA to highlight specific values in the spreadsheet	daiwuliz	Excel	6	05-23-2018 10:30 AM
Remove white text background (keeping the font color and page color intact	cc3125	Word	1	10-26-2015 06:44 PM
Change highlight color	maceslin	Word	3	04-30-2013 04:43 AM
change One highlight Color to Another	Redbarn	Word VBA	1	03-16-2013 02:03 PM