Макрос для поиска и выделения слов

[Angry_Kitty]

Добрый день!

Написала макрос, который ищет выделенную и подсвеченную определенным цветом часть слова, найденное подсвечивает таким же цветом. Поиск осуществляется в части текста, которая расположена ниже выделенного участка.

Sub макрос()
'
Dim rTmp As Range
Set rTmp = ActiveDocument.Range
With Selection.Find
.Text = Selection.Text
.Replacement.Text = ""
.Replacement.Highlight = True
.Wrap = wdFindAsk
.Execute Replace:=wdReplaceAll
End With
End Sub

Проблема - слишком мало вариантов цветов в опции хайлайт, а нужно искать большое количество разных слов и выделять их по-разному. Можно ли сделать так,чтоб макрос использовал вместо хайлайта функцию заливки? Или чтобы он "переносил" с выделенного фрагмента не только подсвечивание, но и цвет шрифта? Пыталась так сделать, но никак не получается. По сути, нужно, чтобы макрос искал слова и делал их форматирование (подсвечивание+цвет шрифта или заливка) по образцу выделенного искомого фрагмента. Это реально? Очень нужна Ваша помощь..

[Ципихович Эндрю]

'цвет ... слова для замены
.Replacement.Font.Color = wdColorPink
а уточнить цвет выделенного
ment = Selection.Font.Color
писал по памяти, проверяйте

[Angry_Kitty]

Сообщение от Ципихович Эндрю

'цвет ... слова для замены
.Replacement.Font.Color = wdColorPink
а уточнить цвет выделенного
ment = Selection.Font.Color
писал по памяти, проверяйте

Спасибо, что откликнулись! Цвет найденных слов становится розовым, но нужна возможность каждый раз использовать разные цвета. И чтобы не указывать в коде цвет для каждого последующего поиска. Т.е. нужно, чтобы шрифт найденных слов становился того же цвета, что и искомый. Для одного документа искомые слова выделяются разными цветами подсветки и разными цветами шрифта, а не все одинаковым.
Скажите, пожалуйста, если это все бред и невозможно... я уж тогда мучиться не буду...

[Sasha_Smirnov]

Возможно.

Документик приложите...

[Angry_Kitty]

Сообщение от Sasha_Smirnov

Возможно.

Документик приложите...

Здорово, а я уже не надеялась! В приложении один из текстов, в которых нужно найти и выделить слова. Уже необязательно разнообразные цвета шрифта, можно два варианта - автоматический черный или белый. Чтобы слова отличались друг от друга. Заранее спасибо за помощь!

[Ципихович Эндрю]

Что за унылие, я же Вам сказал

Сообщение от Ципихович Эндрю

а уточнить цвет выделенного
ment = Selection.Font.Color
писал по памяти, проверяйте

[Angry_Kitty]

Сообщение от Ципихович Эндрю

Что за унылие, я же Вам сказал

Извините, я плохо разбираюсь в бейсике . Вставила эту строку, но все равно цвет шрифта становится розовым во всех случаях. А тогда нет никакой разницы - что он черный, что розовый, все равно получается 16 вариантов выделения слов. Наверно, я что-то не так делаю...

Sub макрос()
'
Dim rTmp As Range
Set rTmp = ActiveDocument.Range
With Selection.Find
.Text = Selection.Text
.Replacement.Text = ""
.Replacement.Highlight = True
.Replacement.Font.Color = wdColorPink
ment = Selection.Font.Color
.Wrap = wdFindAsk
.Execute Replace:=wdReplaceAll
End With
End Sub

Вот так должно быть? Я ничего не нашла про функцию ment...

[Ципихович Эндрю]

Я ничего не нашла про функцию ment...
Да это не функция можете написать шмент =
Замысел такой, найденное слово выделяете, выделенному узнаете цвет
шмент = Selection.Font.Color
а потом при замене говорите
.Replacement.Font.Color = шмент
Это Вам подходит???

[Angry_Kitty]

Сообщение от Ципихович Эндрю

Я ничего не нашла про функцию ment...
Да это не функция можете написать шмент =
Замысел такой, найденное слово выделяете, выделенному узнаете цвет
шмент = Selection.Font.Color
а потом при замене говорите
.Replacement.Font.Color = шмент
Это Вам подходит???

Дааа! Спасибо большое!!! Все работает!!!!

[ann-m]

все сделала.. заработало. Решила добавить еще одно слово... и все полетело((
теперь даже не могу вернуть то, что было...