Hello,


I know nothing about coding but last time I needed to duplicate a whole page in Word, this worked for me:

Sub Duplicate()

Page = InputBox(“Enter the Page to Duplicate”)

Count = InputBox(“Enter Number of times to duplicate”)

With Selection

.GoTo wdGoToPage, wdGoToAbsolute, Page

.Bookmarks(“ \ Page”).Range.Copy

For i = 1 To Count: .Paste: Next

End With

End Sub

Right now, it's not working and keeps giving me the "syntax error" notification. The only difference is that last time, the document had multiple pages already and I was duplicating one page even more times. This time, the document just has one page which I have to duplicate into 60 pages.

This works for me
Sub DuplMultPg()
'https://www.msofficeforums.com/word-vba/53764-duplicate-macro-keeps-giving-syntax-error.html
Dim Pg As Long, Count As Long, i As Long
Pg = InputBox("Enter the Page to Duplicate")
Count = InputBox("Enter Number of times to duplicate")
With Selection
.GoTo wdGoToPage, wdGoToAbsolute, Pg
.Bookmarks("\Page").Range.Copy
For i = 1 To Count: .Paste: Next
End With
End Sub

Attached Files

DuplMultPg.txt (466 Bytes, 3 views)

Thank you so much!

Thank you, I thought it worked but in the duplicated pages, the image is not placed where it's supposed to be. Fyi, the image is "Behind Text".

Thank you, I thought it worked but in the duplicated pages, the image is not placed where it's supposed to be. Fyi, the image is "Behind Text".