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

Parents
No Data
Reply Children
No Data