|
Asked by
Mr_M_told_U_so
20 months ago
|
|
||||
|
||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Show all details, Hide all details
View this question's discussion
(15 comments)
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Latest post on this question's discussion board:
Here is the macro adding the wording "Mr_M Page" without the header.
Just run this macro without any header created and it should print Mr_M Page 1 and so on as many pages as numbers that you enter in the field.
Sub page()
'
' page Macro
'
'
Dim sum As Integer
Response = InputBox("Enter a number.", _
"Number Entry", , 250, 75, "", 1)
sum = 1
If Response <> False Then
Do While sum < Response
Selection.TypeText Text:="Mr_M Page " & sum
Selection.InsertBreak Type:=wdPageBreak
sum = sum + 1
Loop
Selection.TypeText Text:="Mr_M Page " & sum
End If
End Sub


