HELP - HOW TO MAKE - TEXT TO CURVES MACRO ??

Hi Friends,

is it possible for someone to explain how to make a macro for converting text to curves in an entire document?  Of is there a free one I can download?

 

Awaiting your replies.

Thanks.

Parents
No Data
Reply
  • gaaartroom said:

    Hi Friends,

    is it possible for someone to explain how to make a macro for converting text to curves in an entire document?  Of is there a free one I can download?

    Awaiting your replies.

    Thanks.

    HI.

    Here's a couple subs. The first one in based on CQL (Corel Query Language) and will run much faster. CQL is available in X3 and up.

     

    Private Sub convertAllToCurvesCQL()
    Dim p As Page

    For Each p In ActiveDocument.Pages
        p.Activate
        ActivePage.Shapes.FindShapes(Query:="@type = 'text:artistic'").ConvertToCurves
        'ActivePage.Shapes.FindShapes(Query:="@type = 'text:paragraph'").ConvertToCurves optional (paragraph text too?)
    Next p

    End Sub

     

    Private Sub convertAllToCurvesOLD()

    Dim p As Page, s As Shape, sr As ShapeRange

    For Each p In ActiveDocument.Pages
        p.Activate
        Set sr = ActivePage.Shapes.FindShapes(, cdrTextShape)
        For Each s In sr
            s.ConvertToCurves
        Next s
    Next p

    End Sub

     

    -John

     

Children