Duplicate pages in quantity to first page

I wanted to duplicate my active page in quantity to the first page. I used the code but it brings error "Object does not support this property or method"

Sub DuplicateToFirstPage()
Dim sr As ShapeRange, nc As Integer, pnext As Page, sduplicate As Shape
nc = InputBox("enter required")
For i = 1 To nc
Set sr = ActivePage.Shapes.All
Set pnext = ActiveDocument.InsertPages(1, False, ActiveDocument.Pages(1))
For Each s In sr.ReverseRange
Set sduplicate = s.Duplicate
sduplicate.MoveToLayer pnext.Layers(s.Layer.Name)
Next s
Next i
pnext.Activate

End Sub

Parents
  • I tried to duplicate from a particular page (p) to another page (k) but gives me error (type mismatch) in the bold line

    Sub DuplicatePage()
    Dim sr As ShapeRange, nc As Integer, pnext As Page, sduplicate As Shape
    nc = InputBox("enter required no.")
    p = InputBox("enter page from")
    k = InputBox("enter page to")
    For i = 1 To nc
    Set sr = ActiveDocument.Pages(p).Shapes.All
    Set pnext = ActiveDocument.InsertPages(1, False, ActiveDocument.Pages(k).Index)
    For Each s In sr.ReverseRange
    Set sduplicate = sr.Duplicate
    sduplicate.MoveToLayer pnext.Layers(s.Layer.Name)
    Next s
    Next i
    pnext.Activate

    End Sub

Reply Children