V-Форум / Corel VBA / Тема: ConvertToCurves
Re: ConvertToCurves
24/01/2006 13:41:24 #Link
Спасибо 
Re: ConvertToCurves
24/01/2006 13:44:47 #Link
Глеб
и тебе спасибо!
очень полезная чтука с jpg
и тебе спасибо!
очень полезная чтука с jpg
Re: ConvertToCurves
18/02/2006 2:15:30 #Link
ТОварищи - вы, так сказать, заметно облекчаете труды наши праведные.
Истинно правильно.
)
Спасибо ребята.
Истинно правильно.
)
Спасибо ребята.
Re: ConvertToCurves
20/09/2006 10:36:09 #Link
я вот почитал.. ниче не понял.. может потому что с Корелом отношения у мен япо столько по скольку.. чем реже тем лучше..
но в Люстре почему-то вопросво по переводу текста в кривые не возникало никогда.. будь то сложная верстка или два слова написано... просто cmd)ctrl)-A, cmd(ctrl)-shift-О.. в группе не в группе... поровну.. "скривиться" все, что не залокировано по cmd(ctrl)-2...
да, согласе, пост не уместен.. ибо речь о кореле..
просто лишний раз убеждаюсь о простоте и удобстве люстры..
но в Люстре почему-то вопросво по переводу текста в кривые не возникало никогда.. будь то сложная верстка или два слова написано... просто cmd)ctrl)-A, cmd(ctrl)-shift-О.. в группе не в группе... поровну.. "скривиться" все, что не залокировано по cmd(ctrl)-2...
да, согласе, пост не уместен.. ибо речь о кореле..
просто лишний раз убеждаюсь о простоте и удобстве люстры..
Re: ConvertToCurves
20/09/2006 11:22:52 #LinkwOxxOm
Респект! эта крута !!!!!!!!!!
Ты читаешь мысли!
восторгу нет придела!
Егор
в Илюстраторе всего 1 страница
а в кореле их может быт 50
это значит что на каждую надо заходить иделать ctr+A Ctr+Q
и того сто раз нажать.
при том иногда при ctr+A Ctr+Q корел динамит групы.
Респект! эта крута !!!!!!!!!!
Ты читаешь мысли!
восторгу нет придела!
Егор
в Илюстраторе всего 1 страница
а в кореле их может быт 50
это значит что на каждую надо заходить иделать ctr+A Ctr+Q
и того сто раз нажать.
при том иногда при ctr+A Ctr+Q корел динамит групы.
Re: ConvertToCurves
11/01/2007 11:50:42 #Link
Я использую вот такой макрос, на каком-то форуме увидел 
Конвертит весь текст на всех страницах в кривые.
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
Конвертит весь текст на всех страницах в кривые.
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
Re: ConvertToCurves
27/09/2007 14:08:00 #LinkСамый простой скрипт для перевода всего векторного в кривые
Sub ()
For i = 1 To n
ActivePage.Shapes.All.ConvertToCurves
ActiveDocument.Pages(i).Shapes.All.ConvertToCurves
Next i
End Sub
Вбиваем вместо n количество страниц и всего делов. К сожалению в пауэрклипах не курвит.
Sub ()
For i = 1 To n
ActivePage.Shapes.All.ConvertToCurves
ActiveDocument.Pages(i).Shapes.All.ConvertToCurves
Next i
End Sub
Вбиваем вместо n количество страниц и всего делов. К сожалению в пауэрклипах не курвит.
Re: ConvertToCurves
27/09/2007 20:36:58 #Link
недавно и я свой написал. В поверклипах шарит. wx.TextToCurves в составе wx_Tools на http://recentfiles.netfir...
Re: ConvertToCurves
14/05/2009 11:58:37 #Link
А можно сделать кнопку на скрипе - Все страницы - что бы можно было выбирать - ко всем страницам скрипт применить или по странично?
Re: ConvertToCurves
04/02/2010 17:05:06 #Link
прочитал всю тему, но так и не понял как ПОЛНОСТЬЮ (включая группы и поверклипы) текста в кривые перевести.
помогите пожалуйста.
помогите пожалуйста.
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=466&start=30
