Как найти слова, подсвеченные определённым цветом?

[Кукша12]

Как найти слова, подсвеченные определённым цветом?
Я имею ввиду не цвет букв, а фон позади них. То есть то, что делается кнопкой "Выделение цветом".

В документе могут быть слова, выделенные разными цветами. Некоторые из них надо перекрасить макросом.

[inq]

HighlightColorIndex

[LeoCh]

Selection.Find.ClearFormatting
Selection.Find.Highlight = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute

[Кукша12]

LeoCh, это не то - оно находит просто подсвеченное, причём любым цветом, а мне надо среди кучи разноцветной подсветки выбрать подсвеченное НУЖНЫМ МНЕ цветом.

ing, HighlightColorIndex применим только к Range.
а вот как его привязать к поиску?

Проще: как найти подсвеченное красным, пропуская подсвеченное жёлтым?

[uhm]

Соединить две высказанных мысли не пробовал?

Ищи с помощью Find с Highlight=True, после поиска проверяй Selection.Range.HighlightColorIndex. Если 6 - слово выделено красным, если 7 - желтым.

[inq]

ing, HighlightColorIndex применим только к Range.

чем words(i) не range?

пс inq

[Кукша12]

[quote="uhm"]Соединить две высказанных мысли не пробовал? [quote]

угу - днём вчера сторомозил, а вечером дошло - почти так и сделал.

Сейчас уже в другое уткнулся: цветов подсветки может быть всего 15 штук, получается?
Что-то что у меня HighlightColorIndex не принимает RGB()... Вот обидно... мне для отката надо потом снять выделения, а поскольку цветов мало, то высока вероятность, что снимутся выделения и с того, что не моими макросами было выделено - при совпадении цветов подсветки... Проверку на имеющиеся цвета подсветок делать придётся - костыли получаются. Эх-ма...