Sub CTRLQ()
' Recorded 2016-4-12
For I = 1 To 108
Activedocument.Pages(i).Activate
Activedocument.Pages(I).Shapes.All.CreateSelection
ActiveSelection.ConvertToCurves
Next I
End Sub

Sub CTRLQ()
' Recorded 2016-4-12
For I = 1 To 108
Activedocument.Pages(i).Activate
Activedocument.Pages(I).Shapes.All.CreateSelection
ActiveSelection.ConvertToCurves
Next I
End Sub