Microsoft Office Forums - View Single Post - Highlighting multiple non-contiguous words?

musicgold · 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