При работе с документами Word может возникнуть вопрос "Как вставить несколько новых чистых страниц в конец документа?". На этот вопрос существует несколько разных ответов, один из которых будет рассмотрен ниже. Не прибегая к повторяющимся нажатиям клавиш на клавиатуре можно быстро добавлять страницы при помощи макроса VBA.

Программная вставка пустых страниц в документ макросом VBA

Ниже приведен программный код макроса, позволяющего автоматизировать вставку новых пустых страниц в конец документа Word.

Option Explicit
Sub Vstavka_Pustyh_Stranits()
    Dim Count As Integer, i As Integer
    Count = 10   'здесь задается количество вставляемых в документ страниц
        For i = 1 To Count
            Selection.EndKey Unit:=wdStory
            Selection.InsertBreak Type:=wdPageBreak
        Next i
End Sub

Для того, чтобы перенести этот программный код на свой компьютер, наведите курсор мыши на поле с программным кодом , нажмите на одну из двух кнопкок knopka_view_source в правом верхнем углу этого поля, скопируйте программный код и вставьте его в модуль проекта на своем компьютере (подробнее о том, как сохранить программный код макроса).

В первой строке представленного кода прописана инструкция Option Explicit, в соответствии с которой требуется явное объявление всех переменных. Далее следует строка, содержащая ключевое слово Sub (сокращение от Subprogram - подпрограмма), название макроса и пустые круглые скобки. Далее следует тело макроса, состоящее из объявления переменных, цикла, перевода курсора в конец документа и вставки разрыва страницы (подробнее о структуре макросов). За телом макроса следует строка с ключевыми словами End Sub, что означает окончание макроса.

Надстройка для вставки пустых страниц в документы Word 

Вставлять пустые страницы в документы можно посредством надстройки для Word. Количество добавляемых пустых страниц в этом случае можно указывать не в программном коде макроса, а в диалоговом окне, что несколько более удобно. Кроме того вставку новых страниц можно производить как после документа, так и перед ним.