Выделение цветом нескольких фрагментов текста

[Вождь]

Для ускорения можно попробавать такой вариант:

Sub A()
    Selection.Font.ColorIndex = wdBlue
    Selection.Collapse
    Options.DefaultHighlightColorIndex = wdYellow
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .Font.ColorIndex = wdBlue
        .Replacement.Font.ColorIndex = wdAuto
        .Replacement.Highlight = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Еще замечу, что в режиме регистрации исправлений макросы могут работать нестандартно. Стараюсь отключать его.