Имеется таблица соответствий (около 500 наименований контрольных точек изменены - соответственно в таблице указаны старое и новое ..).
Каким образом найти в 14 Word файлах старые наименования и заменить на новые?
Макросы почему то не работают ...
Направьте в нужном направлении, пожалуйста!
Поиск и замена..
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- RAO
- Начинающий
- Сообщения: 1
- Зарегистрирован: 14.12.2005 (Ср) 1:28
Поиск и замена..
RAO » 14.12.2005 (Ср) 1:43
- Matew
- Постоялец
-
- Сообщения: 894
- Зарегистрирован: 28.06.2004 (Пн) 17:44
- Откуда: Дальний Восток, г. Ха
Matew » 14.12.2005 (Ср) 4:43
- Код: Выделить всё
kl = FreeFile
Open "Путь_до_файла" For Input As kl 'Открываем файл для считывания записи
Весь_текст = Input(LOF(kl), kl)
Close #kl
replace(Весь_текст,Что, НаЧтоМенять)
Алкоголь и сканеры-ваши враги! Не верите-смотрите аватару 
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 14.12.2005 (Ср) 6:44
Matew
О да, вордовский файл после этой операции откроется успешно...
RAO
Приведи макросы, которые почему-то не работают.
О да, вордовский файл после этой операции откроется успешно...
RAO
Приведи макросы, которые почему-то не работают.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 85