|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.02.2014, 22:06 | #1 |
Пользователь
Регистрация: 17.02.2008
Сообщений: 53
|
Удалить первую страницу если есть одно слово
Здравствуйте.
Есть документы из консультанта, в них помимо колонтитулов иногда не везде на первой странице есть информация название документа и что предоставлен консультантом вот как пример: Вот задача проверить наличие слова "КонсультантПлюс" в тексте (не колонтитуле) ну или например картинку с их логотипом. и если встречается, то удалить первую страницу. Как такое сделать? проблема в том, что я не знаю этот язык.. вот нашел когда-то давно макрос удаления ссылок из документов. тут как понимаю нужно всего добавить условие поиска слова и если найдено то удалить... Код:
|
10.02.2014, 23:26 | #2 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
хотелось бы увидеть документ
оформление ведь может быть разное
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
11.02.2014, 09:52 | #3 |
Пользователь
Регистрация: 17.02.2008
Сообщений: 53
|
образец документа есть в первом посте на 4 строчке ссылка.
еще раз ссылка на образец документа Вот если там есть такая страница (она везде одинаковая, только название документа разное) то удалить. А если там такой страницы нет, то оставить как есть. |
11.02.2014, 10:42 | #4 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
отрабатывает, но требует доработки(годится в первом приближении)
Код:
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
11.02.2014, 12:52 | #5 |
Пользователь
Регистрация: 17.02.2008
Сообщений: 53
|
Да спасибо. Супер работает )
вот только если открыть и запустить, а как сделать, чтоб обработались сразу все? ну вот пример скрипта выше по пробегу по папке, открывая почереди документы для удаления всех ссылок: Код:
пс: не ожидал что это такой большой сложный макрос. я думал тут буквально несколько строчек, типа поиск текста, если найден снести всю первую страницу.. Последний раз редактировалось Karyuudo; 11.02.2014 в 12:58. |
11.02.2014, 13:07 | #6 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
2 ключевых слова занимают только часть ячейки таблицы, а запробелить надо всю ячейку
через регулярные выражения --проще не будет перебор файлов --конечно возможен, но для начала надо убедится в работоспособности макроса на все 100 действо то опасное может в других шаблонах --другие ключевые слова --другая разбивка на разделы причем шаблоны Консультанта помечены ---только для чтения, надо и это учитывать
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание Последний раз редактировалось shanemac51; 11.02.2014 в 13:09. |
12.02.2014, 15:41 | #7 |
Пользователь
Регистрация: 17.02.2008
Сообщений: 53
|
пробовал соединить эти 2 скрипта, оказалось один vba а другой vbs теперь понятно почему не работает
в общем спасибо огромное за макрос, при помощи другого способа обработал им множество файлов все ОК Последний раз редактировалось Karyuudo; 13.02.2014 в 09:56. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывести на экран предложения, в которых есть хотя бы одно слово состоящее из 7 букв | Shonny94 | Помощь студентам | 0 | 18.02.2013 17:40 |
Если слово нечетной длины, то удалить его среднюю букву | belichkina | Общие вопросы C/C++ | 2 | 11.05.2011 16:19 |
Если есть совпадение, то удалить строчку | MASRUB | Microsoft Office Excel | 3 | 18.02.2011 17:06 |
если слово нечетной длины,то удалить его первую букву!!! | locdoc | Помощь студентам | 2 | 06.12.2010 16:35 |
VBA_макрос: удалить всю строку в таблице, если в ней есть слово "удалить" | макарошка | Microsoft Office Excel | 15 | 05.10.2010 09:09 |