Подскажите пожалуйста, как можно с помощью макроса добавить нужное число пустых страниц, чтобы итоговое число страниц получилось кратное 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
Большое спасибо! А я так долго мучился с алгоритмом!