У меня есть макрос в MS Word 2013 VBA (не Excel), который переключает цвет выделения выделенного текста. Код выглядит так:

If Selection.Range.HighlightColorIndex = WhtColor Then Selection.Range.HighlightColorIndex = wdNoHighlight Else Selection.Range.HighlightColorIndex = WhtColor

Это прекрасно работает для непрерывных / смежных выборов. Но если я выберу, скажем, 4 несмежные строки в таблице Word (скажем, строки 5, 12, 15 и 19), макрос выделит только последнюю выбранную строку.

Как получить HighlightColorIndex для применения ко всем «частям» несмежного диапазона или как пройти по циклу по различным «частям» диапазона и применить HighlightColorIndex к каждой части?