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".
Quote:
Originally Posted by maniek
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 |