Как найти текст, любого цвета, кроме чёрного?

[Кукша12]

При написании макроса для MS Word, нужно выяснить, есть ли в документе текст любого цвета, кроме чёрного. То же самое с цветом фона текста (цветная подсветка букв - "Выделение цветом")
Как это сделать?

[GSerg]

Заставить объект .find найти весь чёрный текст. Если найденный диапазон не совпадает со всем документом, в документе есть текст любого цвета, кроме чёрного...

[Кукша12]

гм, ну в общем ясно что надо. Но, как это сделать?

[RayShade]

У помянутого объекта .find есть такой штук, как .format его надо поставить true.

А потом уже, через .paragraphformat и .font настроить его на поиск нужного цвета на нужном фоне.

[Кукша12]

понял, спасибо - про всё поотдельности знал, а вот свести всё вместе соображалки не хватало