#1
|
|||
|
|||
Remove two highlight colors at the same time
Hi community,
Thank you experts for helping me to edit the VBA codes in the previous post (https://www.msofficeforums.com/word-...highlight.html) I have encountered another issue. When I tried to remove two highlight colours at the same time, the same issue came out again. That is, two highlight colours connected together cannot be identified by the macro and be removed. (See attached file as demo) Code:
Sub ClearTurquoise() Call ClearPink Dim oRngStory As Range For Each oRngStory In ActiveDocument.StoryRanges Do With oRngStory.Find .Highlight = True Do While .Execute If oRngStory.HighlightColorIndex = wdTurquoise Then oRngStory.HighlightColorIndex = wdNoHighlight oRngStory.Collapse 0 End If Loop End With 'Get next linked story (if any) Set oRngStory = oRngStory.NextStoryRange Loop Until oRngStory Is Nothing Next lbl_exit: Exit Sub End Sub Sub ClearPink() Dim oRngStory As Range For Each oRngStory In ActiveDocument.StoryRanges Do With oRngStory.Find .Highlight = True Do While .Execute If oRngStory.HighlightColorIndex = wdpink Then oRngStory.HighlightColorIndex = wdNoHighlight oRngStory.Collapse 0 End If Loop End With 'Get next linked story (if any) Set oRngStory = oRngStory.NextStoryRange Loop Until oRngStory Is Nothing Next lbl_exit: Exit Sub End Sub Your help will be greatly appreciated! |
#2
|
||||
|
||||
You can use Select Case to act on multiple options at the same time. For example if you want to treat turquoise, pink AND mixed in the same way...
Code:
Sub ClearHilites() Dim oRngStory As Range For Each oRngStory In ActiveDocument.StoryRanges With oRngStory.Find .Highlight = True Do While .Execute Select Case oRngStory.HighlightColorIndex Case wdTurquoise, wdPink, 9999999 oRngStory.HighlightColorIndex = wdNoHighlight oRngStory.Collapse 0 End Select Loop End With Next End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
Quote:
|
Tags |
highlight, vba, word macro |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Highlight colors have changed to eliminate yellow | QQQ | Word | 15 | 10-17-2022 11:40 AM |
How to change colors to time values | Ashikido | Excel | 6 | 02-01-2021 11:37 AM |
Text/highlight colors in selection boxes changed | kathleen | Word | 0 | 01-10-2018 07:45 PM |
Need to put two highlight buttons on toolbar in different colors | davidmrt | Word | 6 | 12-11-2011 05:54 AM |
Highlight one line at a time | billy589 | PowerPoint | 1 | 10-04-2010 02:33 PM |