Is there a macro that turns all text on a page in curves? would be of great help
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.
ajanthan said: 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 iEnd Sub
I figured out the best version so far, supports PowerClips and fast, also a one-liner:
FindAllShapes.Shapes.FindShapes(Type:=cdrTextShape).Shapes.All.ConvertToCurves
The FindAllShapes function:
Function FindAllShapes() As ShapeRange Dim S As Shape Dim srPowerClipped As New ShapeRange Dim SR As ShapeRange, srAll As New ShapeRange Set SR = ActivePage.Shapes.FindShapes() Do For Each S In SR.Shapes.FindShapes(Query:="!@com.powerclip.IsNull") srPowerClipped.AddRange S.PowerClip.Shapes.FindShapes() Next S srAll.AddRange SR SR.RemoveAll SR.AddRange srPowerClipped srPowerClipped.RemoveAll Loop Until SR.Count = 0 Set FindAllShapes = srAll End Function