Поиск и подсветка найденного

[Advisory]

Здравствуйте!

Кто-нибудь может помочь с макросом?

Необходимо в Вордовском документе находить и подсвечивать (например, желтой заливкой) все вхождения искомого слова или выражения, хранящегося в выделенной ячейке «Словаря».

«Словарь» – это Экселевский документ, где в одном столбце написаны иностранные слова или выражения, а в другом (соседнем) – их перевод.

Т.е. выделил ячейку с нужным словом, запустил Макрос и он в нужном Документе подсветил искомое слово столько раз, сколько оно встретилось.

Спасибо.

[kuklp]

http://programmersforum.ru/forumdisp...sprune=-1&f=29

[Advisory]

kuklp, хотите перенести тему?

[DiemonStar]

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

kuklp, хотите перенести тему?

скорее предлагает вам обратиться в тот раздел.

[kuklp]

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

скорее предлагает вам обратиться в тот раздел.

Все верно.
Advisory, не путайте помощь с заказом. Хотите помощи, делайте сами. А сюда с вопросом, что не получается. Поможем.
P.S. Я бы так тоже хотел:
- Помогите с погребом.
- Необходимо: выкопать погреб. Крышка есть.
А я пойду в пивбар, подожду, пока "помогут".

[Advisory]

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

А сюда с вопросом, что не получается. Поможем.

Вот работающий код, осуществляющий поиск заданного вхождения в Документе:

    With oDocument.Content.Find
        .Text = sCellText
        .Replacement.Text = ""
        .Format = True
        .Replacement.Highlight = True
        .Execute Replace:=2
    End With

Но он не ищет «с учетом регистра» и «слова целиком». Например, ищем «in» (без кавычек). В результате подсвечивается «infomation», «definition» и т.д. Регистр тоже не учитывается.

Что нужно добавить, чтобы искались слова целиком и с учетом регистра?

[kuklp]

        .MatchCase = true
        .MatchWholeWord = true

Кто ж Вам не дал записать это макрорекордером в Ворде? И впредь выкладывайте примеры в файлах. Форумчане не любят рисовать примеры.

[Advisory]

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

Кто ж Вам не дал записать это макрорекордером в Ворде?

А почему Вы решили, что я этого не сделал?