Macro text to curves

Is there a macro that turns all text on a page in curves? would be of great help

Parents
No Data
Reply
  • Hi Thiago. 

    I think its a very late response for your question. But may be people who are still searching for the answer of above question may be get useful information.

    Yes There is a macro for converting all the text not only in a single page but also all the pages available in the corel draw document.

     

    If you want to convert all the text to curves in a single page then. Ungroup all layers and Use Edit > Select All > Text and then use Ctrl + Q to convert to curves.

    If you want to convert all the text to curves in all pages then just use below macro.

     

    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

     

Children