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.
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 PageFor 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 pEnd Sub
Private Sub convertAllToCurvesOLD()Dim p As Page, s As Shape, sr As ShapeRangeFor Each p In ActiveDocument.Pages p.Activate Set sr = ActivePage.Shapes.FindShapes(, cdrTextShape) For Each s In sr s.ConvertToCurves Next sNext pEnd Sub
-John
Select all your text then do a "Ctrl Q". No need for a macro.
On that note let me add that there is very little you can't do in CorelDraw that would require some macro. I find that macros are only really useful if you do something that's quite repetitive or requires a lot of steps. If you do the same thing often enough then maybe a macro is the way to go otherwise I would just concentrate on the CorelDraw basics and expand from there.
Dan
gaaartroom said:macro for converting text to curves in an entire document?
Terremoto said:Select all your text then do a "Ctrl Q". No need for a macro.
Hi.
This is true but he mentioned entire document which may consist of multiple pages. This macro will perform function on all pages. Your suggestion Ctrl-Q should work well if your entire document consists of one page.
As "Terremoto" says, no Macro is needed.
Go to EDIT > SELECT ALL > TEXT (here you can set a shortcut as you wish).
My shortcut is "Alt+T" (once texts are selected I just press CTRL+Q).
So, only two steps: Alt+T / Ctrl+Q.
(Note: It works only for texts in active page)
Thanks for the replies everyone.
I will trying doing the macro as suggested.
I know about using select all> text, but I have multiple pages (104 pgs actually) so was just looking for a quicker way.
Thanks again