Word VBA: Добавить нужное число пустых страниц с помощью макроса

Автор Anton, 21 ноября 2017, 10:54

Anton

Подскажите пожалуйста, как можно с помощью макроса добавить нужное число пустых страниц, чтобы итоговое число страниц получилось кратное 4.

Администратор

Макрос
Sub макрос()

    Dim i As Long
   
    ' Если кол-во страниц не кратно четырём.
    If ActiveDocument.ComputeStatistics(wdStatisticPages) Mod 4 <> 0 Then
        For i = 1 To 4 - ActiveDocument.ComputeStatistics(wdStatisticPages) Mod 4
            ' Range(ActiveDocument.Range.End - 1, ActiveDocument.Range.End - 1) - это положение
                ' перед самым последним знаком абзаца.
            ActiveDocument.Range(ActiveDocument.Range.End - 1, ActiveDocument.Range.End - 1).InsertBreak Type:=wdPageBreak
        Next i
    End If

End Sub
[свернуть]

Anton

Большое спасибо! А я так долго мучился с алгоритмом!