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

Автор tds, 6 октября 2018, 19:33

0 Пользователи и 1 гость просматривают эту тему.

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

Цитата: tds от  6 октября 2018, 17:331. Мне нада найти сразу несколько искомых слов например: синий, красный, желтый, черный (!!!! 4значения на входе (красный, желтый - варианты поиска или или для замены на оранжевый))
    найти нада на всех листах документа
Сразу всё не получится, прийдётся перебирать в цикле.

Цитата: tds от  6 октября 2018, 17:33Всего для поиска будет значений 70
Для замены где-то 40
Эти 70 и 40 нужно где-то брать или хранить. Где?

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

mikekaganski

С уважением,
Михаил Каганский

rami

Цитата: mikekaganski от  6 октября 2018, 23:33
Что-то типа такого - ответ от JohnSUN?
Нет, это для текстового документа, нужно для Calc.

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

JohnSUN

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

tds