Running a Macro (Text to Curves) in File Converter (.des to .cgm)

My issue is After completing designing work in Corel designer I have to generate (export) out file in .cgm format. before exporting I need to convert all text in my file to curves (ctrl+Q). For converting a number of files to .cgm I am using File converter in the Macro manager. But, to convert the text into Curves every time I need to open each file.

I have the Macro to convert Text to Curves. But, I'm not able to identify the exact location in the File converter code to place the Text to Curves Macro.

Could you please help me with this issue. It means a lot to me.

Sub allTexttoCurves()
For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Activate
Set sr = ActivePage.Shapes.All
If sr.Count > 0 Then
ActivePage.Shapes.FindShapes(Query:="@type = 'text:artistic'").ConvertToCurves
ActivePage.Shapes.FindShapes(Query:="@type = 'text:paragraph'").ConvertToCurves
End If
Next i
End Sub

Thanks in Advance.

Best Regards,

Naveen