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

[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]

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