Макрос для поиска и замены нескольких слов

[tds]

Привет всем,

Читал темы и вот что нарыл:

Поиск и замена макросом :

Sub poiskzamena   'найти и заменить
Dim ReplaceDescriptor As Object
Sheet=ThisComponent.CurrentController.ActiveSheet
ReplaceDescriptor=Sheet.createReplaceDescriptor()
ReplaceDescriptor.SearchRegularExpression=1
ReplaceDescriptor.SearchString = "то что ищем" 'найти
ReplaceDescriptor.ReplaceString ="на что меняем" 'заменить
Sheet.ReplaceAll(ReplaceDescriptor)
End Sub

Все отлично работает, но у меня остались вопросы

1. Мне нада найти сразу несколько искомых слов например: синий, красный, желтый, черный (!!!! 4значения на входе (красный, желтый - варианты поиска или или для замены на оранжевый))
    найти нада на всех листах документа

2. И заменить например на: фиолетовый, оранжевый, темный (!!!! 3 значения на выходе)

Вопрос в том, чтоб заменть красный или желтый на оранжевый.

Никак не могу понять как.
Всего для поиска будет значений 70
Для замены где-то 40

Заране спасибо!

[rami]

1. Мне нада найти сразу несколько искомых слов например: синий, красный, желтый, черный (!!!! 4значения на входе (красный, желтый - варианты поиска или или для замены на оранжевый))
    найти нада на всех листах документа

Сразу всё не получится, прийдётся перебирать в цикле.

Всего для поиска будет значений 70
Для замены где-то 40

Эти 70 и 40 нужно где-то брать или хранить. Где?

Давайте образец документа. Если нет каких-нибудь хитрых хотелок, должно быть не сложно.

[mikekaganski]

Что-то типа такого - ответ от JohnSUN?

[rami]

Что-то типа такого - ответ от JohnSUN?

Нет, это для текстового документа, нужно для Calc.

Подойдёт вышеприведённый макрос с добавлением чтения данных поиска/замены из какого-нибудь источника и обработки в цикле.

[JohnSUN]

Ну да, как-то так...

[tds]

Спасибо, попробую отпишусь !