Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.01.2012, 19:49   #1
AlexDr
Пользователь
 
Регистрация: 28.01.2012
Сообщений: 14
Сообщение Как удалить Главы?

Как автоматически (через макрос) удалить Главы (номер главы) и пустые 2 строчки до и после в документе-книге?
Пример:
"...
− Надеюсь, меня ты не ликвидируешь. − Я нежно провёл рукой по её плечу. Она не отстранилась, и я вздохнул с некоторым облегчением.

Глава 14

Ночная облава на беглых заключённых, как я и думал, не принесла успеха. Начальник охраны базы организовал усиленное
..."
У меня MS Office 2003 - самый оптимальный вариант из всех, для меня.
AlexDr вне форума Ответить с цитированием
Старый 28.01.2012, 20:43   #2
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию

Вид → Структура → уровень (обычно 1 или 2) → щелчок по главе → клавиша Del

У меня нет под рукой разбитого на разделы документа, чтобы записать макрос. Да и зачем... он всё равно будет запрашивать номер главы — легче вручную выбрать.
Sasha_Smirnov вне форума Ответить с цитированием
Старый 28.01.2012, 20:48   #3
AlexDr
Пользователь
 
Регистрация: 28.01.2012
Сообщений: 14
По умолчанию

В смысле "в ручную выбрать", мне надо физически удалить Глава (номер главы).
А не в меню выбирать. Тогда какой смысл? Проще в ручную удалить, но это очень долго и муторно.
А это возможно сделать? Ведь номера глав меняются.
Было бы замечательно, если честно, ну не люблю я эти Главы - так и хочется их удалить.
P.S. Я делаю FB2 книги.

Последний раз редактировалось AlexDr; 28.01.2012 в 21:04.
AlexDr вне форума Ответить с цитированием
Старый 28.01.2012, 22:20   #4
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

В меню Найти и Заменить в поле Наберите:
Глава [0-9]{1;}[^0013]{1;}
Поставьте галочку Подстановочные знаки
Пименов Александр вне форума Ответить с цитированием
Старый 28.01.2012, 23:27   #5
AlexDr
Пользователь
 
Регистрация: 28.01.2012
Сообщений: 14
По умолчанию

Большое спасибо, вроде получилось.
Я запомню такой приём.
А можно получить расшифровку этих символов?
Глава [0-9]{1;}[^0013]{1;}

Последний раз редактировалось AlexDr; 28.01.2012 в 23:53.
AlexDr вне форума Ответить с цитированием
Старый 28.01.2012, 23:50   #6
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

Цитата:
Сообщение от AlexDr Посмотреть сообщение
Я запомню такой приём.
Почитайте о подстановочных знаках в Поиске и Замене Word, на несколько порядков облегчит жизнь......
Пименов Александр вне форума Ответить с цитированием
Старый 28.01.2012, 23:54   #7
AlexDr
Пользователь
 
Регистрация: 28.01.2012
Сообщений: 14
По умолчанию

Цитата:
Сообщение от Пименов Александр Посмотреть сообщение
Почитайте о подстановочных знаках в Поиске и Замене Word, на несколько порядков облегчит жизнь......
A где можно прочитать про это?
Извините, вроде нашёл. Спасибо.
AlexDr вне форума Ответить с цитированием
Старый 29.01.2012, 01:05   #8
AlexDr
Пользователь
 
Регистрация: 28.01.2012
Сообщений: 14
По умолчанию

Извините, вот ешё что.
Не могу понять, как правильно записать.
Нужно удалить номера написанных страниц.
Типа такого:
" ...
Трудно сказать, сколько охотников-одиночёк и целых
170
охотничьих бригад, вооружённых пистолетами, верёвками и сетями,
... "
И перевести строку в такое:
" ... Трудно сказать, сколько охотников-одиночёк и целых охотничьих бригад, вооружённых пистолетами, верёвками и сетями, ... "
Как это сделать?
Вроде все варианты перепробовал.
AlexDr вне форума Ответить с цитированием
Старый 29.01.2012, 01:23   #9
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию Удаление номеров, обрамлённых пробелами.

Видимо, не все. В окне замены (что по Ctrl-F — см. рис.), так же с включёнными подстановочными знаками, используйте шаблон
^13 [0-9]{1;3} ^13.

Сопоставьте пробелы в отсканированном тексте и шаблоне поиска — может, иногда они по-разному «всплывают». И вообще, предварительно удалите двойные и более "длинные" пробелы.
Цитата:
Сообщение от AlexDr Посмотреть сообщение
Я делаю FB2 книги.
Так они что, без страниц и оглавлений?
Изображения
Тип файла: png Удаление_НомеровСтраниц_.png (65.3 Кб, 133 просмотров)

Последний раз редактировалось Sasha_Smirnov; 29.01.2012 в 04:11. Причина: другой рисунок.
Sasha_Smirnov вне форума Ответить с цитированием
Старый 29.01.2012, 01:32   #10
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

Цитата:
Сообщение от AlexDr Посмотреть сообщение
Большое спасибо, вроде получилось.
Я запомню такой приём.
А можно получить расшифровку этих символов?
Глава [0-9]{1;}[^0013]{1;}
Найти слово Глава с пробелом + любая цифра от 1 и более + символ абзац от 1 и более
Пименов Александр вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что это?Примечание?Как удалить?Как изменить? vfv Microsoft Office Excel 3 07.03.2010 13:51
Библия Delphi. Главы 20 и 21. Gapro Свободное общение 13 08.11.2009 12:31
обновление в блоге - Решение задач: как программе удалить саму себя или как изменить название исполняемог Pblog Обсуждение статей 0 27.06.2009 23:20
Сохранения каждой главы в отдельный файл mamed05 Microsoft Office Word 8 22.05.2009 16:19
как удалить анти вирус( касперский 2006)если она не работает и ее не возможно удалить Alar Общие вопросы Delphi 0 29.10.2006 21:36