Selection.PasteAndFormat (wdFormatOriginalFormatting)ĭim c As Long, p As Long, i As Long, RngSrc As Range, RngTgt As RangeĬ = InputBox("Enter the number of copies you want to make:") 'Duplicate the selected page for the number of times specified by the user Please enter a valid page number."Ī What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=pageNumber MsgBox "The entered page number is greater than the total number of pages in the document. If pageNumber > ActiveDocument.ComputeStatistics(wdStatisticPages) Then 'Check if the entered page number is valid PageNumber = InputBox("Enter the page number to duplicate:") 'Ask the user to enter the page number to duplicate NumOfCopies = InputBox("Enter the number of copies you want to make:") 'Ask user to enter the number of times to duplicate the page The code duplicates the entire document, hope someone could help me fix this issue.
I am trying to create a macro to duplicate a specific page for "N" a number of times.
0 kommentar(er)
