Как подставить дополнительную строку в конце каждой страницы?

[garik64]

Сообщение от shanemac51

если можно в произвольном месте разорвать параграф--то получится

По-моему, не надо искать лишних преград там, где их нет по условию задачи. Сказано же: простой текст, без изысков. Если же вдруг стоят какие-нибудь неразрывные переносы и прочее, то на них у нас всегда есть Ctrl+H.

[Моторокер]

Может лучше использовать специализированный инструмент типа TextKit?

По задаче: напишите макрос.
Клавиша Ctrl+PgDn перемещает документ в начало следующей страницы. Чтобы не вставлять разрыв в середину абзаца, надо нажать Ctrl+Стрелка вниз, курсор перейдёт в начало следующего абзаца. Сюда можно вставить NextPage.

Можно вызов макроса навесить на горячую клавишу и держать её, пока не дойдём до конца документа. Либо в макросе в цикле проверять номер страницы, чтобы не зациклилось.

[Sasha_Smirnov]

sub ДобавлениеТекстаВнизуСтраниц()
msgbox
Dim N As Long ' номер страницы
    With Selection
    .HomeKey wdStory ' ставит курсор в начало документа
    N = 1
        Do
            .GoTo What:=wdGoToPage, Which:=wdGoToNext
            N = N + 1
            .MoveUp ' ставит курсор в предыдующую строку
            
            .TypeText "<!--nextpage-->"
            .TypeParagraph
            .TypeParagraph
            
            .MoveDown ' ставит курсор в следующую строку
        Loop Until N = .Information(wdNumberOfPagesInDocument)
    End With
End Sub

[garik64]

Сообщение от Sasha_Smirnov

sub ДобавлениеТекстаВнизуСтраниц()
msgbox

"msgbox" тут лишний. Кроме того:

Я бы добавил Application.ScreenUpdating = 0

(иначе уж очень тормозит), текст впечатывал как

Text:="<!--nextpage-->" & Chr(13) & Chr(13)

(всё-таки на две инструкции меньше), а в конце

.EndKey wdStory

и ещё раз Text:="<!--nextpage-->" & Chr(13) & Chr(13)

т.к. набегает ещё одна страница

[shanemac51]

Сообщение от Sasha_Smirnov

sub ДобавлениеТекстаВнизуСтраниц()
''msgbox
Dim N As Long ' номер страницы
    With Selection
    .HomeKey wdStory ' ставит курсор в начало документа
    N = 1
        Do
            .GoTo What:=wdGoToPage, Which:=wdGoToNext
            N = N + 1
            .MoveUp ' ставит курсор в предыдующую строку
            
            .TypeText "<!--nextpage-->"
            .TypeParagraph
            .TypeParagraph
            
            .MoveDown ' ставит курсор в следующую строку
        Loop Until N = .Information(wdNumberOfPagesInDocument)
    End With
End Sub

получаем даже для гладкого текста ==разрыв параграфа-------------

Под датой исполнения обязательства Лизингополучателя по уплате платежей по Договору понимается дата <!--nextpage-->
--------------лист ------
поступления денежных средств на расчётный счёт Лизингодателя, указанный в ст. 12 Договора. Задержка исполняющим банком поручения

[garik64]

Сообщение от shanemac51

получаем даже для гладкого текста ==разрыв параграфа-------------

И что? Ясно же было сказано: это НЕВАЖНО.

[Sasha_Smirnov]

Вот именно что неважно. Но топикстартер пока молчит.

Сообщение от The_KING

Вопрос все еще остается открытым.

...как и 99% вопросов форума

[Ципихович Эндрю]

вопрос к garik64 подскажите зачем нужна строка: ScreenUpdating = True
Что произойдёт если её не будет?

[Sasha_Smirnov]

Надо попробовать!..

(Тем временем зачинатель темы сдал заказ и уехал отдыхать. С ухмылочкой такой.)

[garik64]

Сообщение от Ципихович Эндрю

вопрос к garik64 подскажите зачем нужна строка: ScreenUpdating = True

Возвращает VBA в режим отображения изменений в тексте.

Что произойдёт если её не будет?

Для документа в большинстве случаев ничего. А вот для макроса может быть всякое непредсказуемое. Особенно если в нём есть элементы диалога с пользователем.

Лично я всегда её вписываю из самых общих соображений: "использовал инструмент - положи на место".