Re: ConvertToCurves

Написал CorelMAN в 11/01/2007 11:50:42

Я использую вот такой макрос, на каком-то форуме увидел
Конвертит весь текст на всех страницах в кривые.

Sub text_to_curve()
On Error Resume Next
ActiveDocument.BeginCommandGroup "Convert all text to curves"
Dim p As Page
For Each p In ActiveDocument.Pages
Pconvert p.Shapes
p.Shapes.FindShapes(, cdrTextShape).ConvertToCurves
Next p
ActiveDocument.EndCommandGroup
MsgBox "All text coverted to curve!"
End Sub