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.CountActiveDocument.Pages(i).ActivateSet sr = ActivePage.Shapes.AllIf sr.Count > 0 ThenActivePage.Shapes.FindShapes(Query:="@type = 'text:artistic'").ConvertToCurvesActivePage.Shapes.FindShapes(Query:="@type = 'text:paragraph'").ConvertToCurvesEnd IfNext iEnd Sub
Thanks in Advance.
Best Regards,
Naveen