Why won't this VB code cycle through pages?

Sub changePages2()
Dim doc As Document
Dim sh As Shape
Dim sr As ShapeRange
Dim i As Integer
Dim p As Page

Set doc = ActiveDocument
For i = 1 To doc.Pages.Count
    Set p = doc.Pages(i)   'this doesn't work
    Set sr = ActivePage.FindShapes(Type:=cdrTextShape)
            For Each sh In sr
                   sh.ConvertToCurves
   Next sh
Next i
End Sub

  • try this:

    Dim p As Page

    For Each p In ActiveDocument.Pages

        p.Activate

        p.Shapes.FindShapes(, cdrTextShape).ConvertToCurves

    Next p