Как преобразовать ВЕСЬ простой текст в фигурный

Виктуар / 10.02.2015, 15:33
Форум: 
CorelDRAW
Версия программы: 
13.0.0.576

На странице (сканворд) более сотни рамок простого текста (каждый вопрос-определение к своему слову). Все эти рамки нужно преобразовать в текст фигурный (ctrl+F8)... Можно делать это по одной. Но должен же быть какой-нибудь путь для преобразования ВСЕХ рамок (каждой в отдельности или всех вместе) в фигурные. Буду раз за любые советы...

shark / 10.02.2015, 20:19

Держите макрос для этого

Sub ArtText()
Dim sr As ShapeRange, s As Shape
    Set sr = ActivePage.FindShapes(, cdrTextShape)
    For Each s In sr
        If s.Text.Type = cdrParagraphText Then s.Text.ConvertToArtistic
    Next
End Sub
Виктуар / 11.02.2015, 01:52

Это гениально. Спасибо! Я попробую разобраться в этом, чтобы более не докучать расспросами. Не думал. что для этого потребуется макрос, хотя теперь это очевидно. Работает.

shark / 11.02.2015, 17:19

Обращайтесь, если что