Сброс цвета некоторых слов при изменении стиля текста

[viter.alex]

Записанный код в студию!
Оформление текста определённого цвета стилем:

Sub FindColorApplyStyle()
  With Selection.Find
    .ClearFormatting
    .Text = ""
    .Font.Color = wdColorRed
    .Replacement.Text = ""
    .Replacement.Style = "имя стиля"
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Если указанный стиль будет стилем знака, то цвет шрифта станет такой, как указано в стиле. Если указанный стиль будет стилем абзаца или связанным, то изменится только форматирование абзаца, а цвет шрифта не изменится. Почему так — не знаю.

[3D.KENWOOD]

viter.alex, большущее тебе спасибо и за код, и за идею в целом!

В итоге организовал так, как ты предлагал с самого начала (для различных слов использовать различные стили), просто я сразу не понял, что для того чтобы стили одновременно применялись к необходимым словам нужно воспользоваться макросом.