Реализовать поиск через VB в Word'овской таблице - есть ответ

Mikelangelo, 262 просмотра

-1

Примечание:
я просто вопрос не до конца задал...думал сам допишу. но раз готов помочь то дерзай.
задача заключается не просто в поиске и замене это можно и без скриптов сделать.
а в том что бы все строки с интересующей фразой верезать и перенести в другую таблицу. так интересней?))))

Примечание:
VaIW , не это конечно все понятно я с вордом тоже не первый день работаю)
но вся проблема в том что документ страниц эдак так на 10000 и строк которые надо переместить около 30000...вот за этим скрипт и нужен(

Ответы:

Valera Vaitulevich

и много у тебя вопросов по Word-у ? :-)
sub MyFindAndReplace()
' процедура ищет с начала (Start:=0) активного документа текст "МояФразаДляПоиска"
' и заменяет все вхождения этого текста фразой "МояФразаДляЗамены"
' при этом включен регистрозависимый поиск (MatchCase:=True)
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find
.ClearFormatting
.Text = "МояФразаДляПоиска"
With .Replacement
.ClearFormatting
.Text = "МояФразаДляЗамены"
End With
.Execute Replace:=wdReplaceAll, _
Format:=True, MatchCase:=True, _
MatchWholeWord:=True
End With
end sub

Valera Vaitulevich

ну это тоже победимо... хотя непонятно зачем такие кренделя :-)
1. ищем. находим
2. выделяем найденный текст
3. запоминаем его
4. удаляем
5. вставляем в другое место..

15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.