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

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