Microsoft Office Forums - View Single Post - [Solved] Auto generate X pages from input

gmayor · 04-10-2018, 06:31 AM

You are going to have to be clearer what it is that you want to achieve with regard to 'pages'. There are no 'pages' in a Word document. Word is not a page layout application. You could insert five page breaks (see macro), but what would be the point of that?

Code:

Sub Macro1()
Dim i As Integer
Dim strPages As String
    strPages = InputBox("How many pages?", , 5)
    If IsNumeric(strPages) = False Then Exit Sub
    If Not strPages = "" Then
        For i = 1 To Val(strPages)
            Selection.InsertBreak wdPageBreak
        Next i
    End If
End Sub