|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.12.2010, 00:27 | #1 |
Новичок
Джуниор
Регистрация: 27.12.2010
Сообщений: 4
|
Как подставить дополнительную строку в конце каждой страницы?
И так. Имеется doc файл размером в 1000 страниц. В конце каждой страницы мне нужно дописать
Код HTML:
<!--nextpage-->
(Я в поиске и замене тоже рылся и пробовал, но у меня ничего не получилось. Может вы что подскажите...) P.S. Колонтитулы не предлагать, т.к. этот документ в последствии будет сохраняться в формате word html, а в нем как мы знаем они не сохраняются. Файл просто дальше будет обрабатываться другой программой. И это уже будет совсем другая история! P.S.S. Сразу поздравляю всех с наступающим новым годом! |
27.12.2010, 08:56 | #2 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
все абзацы у вас строго влезают в лист (нет переноса)
или вопрос не совсем корректен вставить что-то, разбив текст на кусочки размером примерно в страницу (или например 25-30 строк)
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
27.12.2010, 12:02 | #3 | |
Новичок
Джуниор
Регистрация: 27.12.2010
Сообщений: 4
|
Цитата:
По поводу абзацев. Документы будут сканированными, т.е. сканируется 1000 страниц потом распознается и уже в ворде обрабатывается. Поэтому я думаю что абзацы строго будут влезать в лист. |
|
27.12.2010, 15:09 | #4 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
в реальном ворде 90 процентов абзацев переносятся на следующий лист с переносом
у вас сканирование -некоторые программы сканирования каждый лист сканируют в отдельный раздел и не совсем корректный расположением на листе ворда -если на листе рисунок или разный шрифт, то разделов добавляется -как все это переварит ворд-проблема а что сотворит перенос в НТМ -непредсказуемо потренируйтесь листов на 10 реального расположения информации
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
27.12.2010, 15:13 | #5 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
я не смогла найти распознавателя, который бы дал желаемый результат( около 15 прог)
в лучшем случае ---на тройку с минусом причем НТМ мне получать не требовалось
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
27.12.2010, 16:30 | #6 | |
Новичок
Джуниор
Регистрация: 27.12.2010
Сообщений: 4
|
Цитата:
Код HTML:
<!--nextpage-->
|
|
28.12.2010, 18:30 | #7 |
Новичок
Джуниор
Регистрация: 27.12.2010
Сообщений: 4
|
Вопрос все еще остается открытым.
|
28.12.2010, 18:50 | #8 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
чем вы будете сохранять в НТМ
-можно вставить в начало первого параграфа на листе 1 символ, которого нет в тексте -преобразовать в НТМ -этот символ заменить на требуемое каковы требования к НТМ -может вы будете сохранять ворд как НТМ -или идти по абзацам и переводить загол1 в <h1>nnn</h1> -таблицы -рисунки
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
02.01.2011, 09:26 | #9 |
Форумчанин
Регистрация: 09.07.2009
Сообщений: 111
|
Это ведь разовая задача? Тогда не будем заморачиваться ненужными подсчётами количества страниц. Делаем просто: становимся в начало документа, переходим на следующую страницу, поднимаемся на строку вверх. Оказываемся на последней строке предыдущей страницы. Вписываем <!--nextpage--> и знак конца абзаца, чтобы сместить то, что там было написано, на строку вниз. Опускаемся на строку - оказываемся на второй странице. Переходим на третью, возвращаемся на вторую, вписываем, опускаемся... Короче, повторяем тысячу раз. Поскольку в стандартной странице девятым кеглем 52 строки, на тысячу страниц у нас (за счёт дополнительных энтеров) набежит 20 с хвостиком лишних. Следовательно, повторяем операцию 1020 раз. На последней строке "<!--nextpage-->" окажется в начале страницы. Поехали:
Sub вставлялка() Application.ScreenUpdating = False Dim n As Integer n = 1020 Do While n > 0 Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.TypeText Text:="<!--nextpage-->" & Chr(13) Selection.MoveDown Unit:=wdLine, Count:=1 n = n - 1 Loop ScreenUpdating = True End Sub Должно получиться. |
02.01.2011, 15:59 | #10 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
если можно в произвольном месте разорвать параграф--то получится
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Добавить текст в конце каждой строки memo | donpizzz | Компоненты Delphi | 4 | 20.05.2012 16:25 |
Начало каждой строки таблицы с новой страницы | kcgmizin | Microsoft Office Word | 5 | 25.06.2010 18:02 |
Как добавить в конце каждой строке? | Anton62 | Помощь студентам | 3 | 07.05.2010 12:19 |
Как подставить строку в код? | Voyager-69 | Общие вопросы Delphi | 4 | 09.05.2008 00:08 |