Highlighting multiple non-contiguous words?

[musicgold]

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?

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

Thanks

[d4okeefe]

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

Selection.Range.Case = wdTitleWord

to this

Selection.Range.HighlightColorIndex = wdYellow

[musicgold]

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]

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

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]

Thank you.