|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.02.2012, 14:04 | #1 |
Пользователь
Регистрация: 21.02.2012
Сообщений: 24
|
Макрос: удаление текста со всеми отличными стилями
Помогите, пожалуйста. С вба только начинаю знакомство.
Ситуация: имеется документ, параграфы в котором написаны с различными стилями. Необходимо: оставить в документе только текст, форматированный тремя заданными стилями Стиль1, Стиль2, Стиль3, а текст, форматированный любыми другими стилями - удалить. |
21.02.2012, 16:07 | #2 |
Форумчанин
Регистрация: 17.11.2010
Сообщений: 222
|
Вот 1 из вариантов макроса удаляющий текст ненужных стилей и пустые абзацы
Код:
Последний раз редактировалось Пименов Александр; 21.02.2012 в 16:08. Причина: Опечатка |
21.02.2012, 17:25 | #3 |
Пользователь
Регистрация: 21.02.2012
Сообщений: 24
|
Большое спасибо за помощь, теперь понятно, в каком направлении двигаться, только при выполнении данного кода удаляется вообще весь текст.
|
21.02.2012, 17:33 | #4 |
Форумчанин
Регистрация: 17.11.2010
Сообщений: 222
|
Проверьте правильность названий Стилей в строке
Case Is <> "Стиль 1", Is <> "Стиль 2", Is <> "Стиль 3" |
21.02.2012, 17:34 | #5 |
Форумчанин
Регистрация: 17.11.2010
Сообщений: 222
|
Если названия не совпадают, то удалиться весь абзац
|
21.02.2012, 17:39 | #6 |
Пользователь
Регистрация: 21.02.2012
Сообщений: 24
|
Да нет, с правильностью там все в порядке, тем не менее, удалялись все абзацы. Немного переделал код под If...Then, и все заработало так, как задумано.
Код:
|
21.02.2012, 18:00 | #7 |
Форумчанин
Регистрация: 17.11.2010
Сообщений: 222
|
"Стиль1" у Вас и "Стиль 1" не равны, попробуйте заменить мои стили своими и проверьте
|
21.02.2012, 18:22 | #8 |
Пользователь
Регистрация: 21.02.2012
Сообщений: 24
|
У меня все равно там названия стилей совершенно другие, это я так, условно их обозвал стиль1-стиль2. Еще раз проверил - нет, все равно удаляет все.
|
21.02.2012, 18:33 | #9 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,057
|
|
21.02.2012, 18:36 | #10 |
Пользователь
Регистрация: 21.02.2012
Сообщений: 24
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос форматирования текста | DJTreeno | Microsoft Office Excel | 3 | 04.07.2011 10:41 |
Оформление стилями | jotei20 | Microsoft Office Word | 1 | 26.04.2011 00:14 |
Объеденить ячейки с разными стилями шрифта | doober | Microsoft Office Excel | 9 | 09.09.2010 12:58 |
Макрос: удаление повторяющихся ячеек | Shpr0T | Microsoft Office Excel | 9 | 28.08.2010 14:14 |
Получение снимка экрана методами отличными от printscreen | Mixasik | Софт | 17 | 26.03.2010 10:23 |