Loop pelas partes de uma seleção não contígua no MS * Word * VBA

Eu tenho uma macro no MS Word 2013 VBA (não Excel) que alterna a cor de destaque do texto selecionado. O código fica assim:

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

Isso funciona muito bem para seleções contínuas / contíguas. Mas, se eu selecionar, digamos, 4 linhas não contíguas em uma tabela do Word (digamos, linhas 5, 12, 15 e 19), a macro destacará apenas a última linha selecionada.

Como faço para que o HighlightColorIndex seja aplicado a todas as "partes" do intervalo não contíguo ou como faço um loop pelas diferentes "partes" do intervalo e aplico o HighlightColorIndex a cada parte?