Highlighting multiple non-contiguous words?

musicgold · #1 06-07-2018, 07:39 AM

Hi,

I use the following code to highlight a selected word, or line or paragraph.

However, when I select two or more non-contiguous words (by keeping the CTRL key pressed), and apply this macro, it only highlights the last selected word.

What can I do to get the macro to highlight all of selected words?

Code:

  Selection.Expand Unit:=wdWord
  Selection.Range.HighlightColorIndex = wdYellow
  Selection.MoveRight Unit:=wdCharacter, Count:=1

Thanks

d4okeefe · #2 06-07-2018, 11:40 AM

Your question interested me, and I found an interesting solution here.

It's a bit more complicated than your code, but will work. All you need to do is change this line

Code:

Selection.Range.Case = wdTitleWord

to this

Code:

Selection.Range.HighlightColorIndex = wdYellow

musicgold · #3 06-07-2018, 12:10 PM

Thanks d4okeefe. It works like a charm.

BTW do you know the purpose of the Do While loop in the code? What does it check for?

d4okeefe · #4 06-07-2018, 12:22 PM

You can step through to see what's happening using F8.

Code:

Do While .Execute

carries out the Selection.Find operation. In this case example, all of the user-selected text has been marked "whtcolor", and the while loop changes each one that is marked.

musicgold · #5 06-07-2018, 01:00 PM

Thank you.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Novice needs: Complicated running totals adding substracting non contiguous cells contiguous columns	innkeeper9	Excel	5	08-30-2016 04:43 PM
Contiguous grouping	derohanes	Excel	4	10-30-2015 04:41 PM
How to make it highlight blocks of text (words) without highlighting extra space @end	seortm	Word	3	03-30-2015 08:12 AM
Highlighting multiple word instances in text	gekser	Word VBA	9	07-10-2014 05:46 AM
Macro for highlighting specific number of words	icsjohn	Word VBA	2	12-07-2011 06:44 PM