Please tell me how to make outline a few pages at once.

Thank you very much.
I will challenge the macro.

A macro of ActivePage is done.
But this is only 1 page.
50Page Please teach me how to do it all together.

////////////////////////////
Sub Outlines()
    ' Recorded 2018/10/30
    ActivePage.Shapes.All.CreateSelection
    ActiveSelection.ConvertToCurves
End Sub
//////////////////////////////

Sub MakeCurvesOnAllPages

dim p As page

    for each p In activedocument.pages

        p.Activate

        ActivePage.Shapes.All.CreateSelection
        ActiveSelection.ConvertToCurves

    next p

End Sub

Dear  shark

Thank you for a wonderful macro.
thank you very much.