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 iEnd Sub
try this:
Dim p As Page
For Each p In ActiveDocument.Pages
p.Activate
p.Shapes.FindShapes(, cdrTextShape).ConvertToCurves
Next p