Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 08-01-2020, 07:19 AM
rekent rekent is offline Remove highlight with specific color Mac OS X Remove highlight with specific color Office for Mac 2011
Novice
Remove highlight with specific color
 
Join Date: May 2014
Posts: 23
rekent is on a distinguished road
Default Remove highlight with specific color


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
Reply With Quote
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
Remove highlight with specific color 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 highlight with specific color 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
Remove highlight with specific color change One highlight Color to Another Redbarn Word VBA 1 03-16-2013 02:03 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 11:04 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft