Помогите найти команду!

[Spirit412]

Подскажите плиз код команды... выполняющей такое вот преобразование:
нужно всем объектам с контурами.... переназначить контур.... т.е. все контуры перевести в хэирлайны....

давно не писал скрипты... подзабыл уже многое...
а очень нужно....

 

[zemnoy]

Ответ: Помогите найти команду!

Можно сделать средствами Х3 (Find&Replace...) преобразование которое вы описываете (если это не является частью чего-то более сложного)

 

[dizzy]

Ответ: Помогите найти команду!

нужно всем объектам с контурами.... переназначить контур.... т.е. все контуры перевести в хэирлайны....

Sub AllConturToHairLines()
Dim pg As Page, sh As Shape
ActiveDocument.Unit = cdrInch
For Each pg In ActiveDocument.Pages
    For Each sh In pg.Shapes.FindShapes
        If sh.Outline.Type <> cdrNoOutline Then sh.Outline.Width = 0.003
    Next sh
Next pg
End Sub

По поводу благодарностей объединяйтесь с masterdoom

 

[Spirit412]

Ответ: Помогите найти команду!

Спасибо!
Всё заработало!
А Не подскажете... существует ли в природе мануал по написанию скриптов на VBA под корел на русском с примерами?
Лет 5 назад последний раз писал скрипт...приходилось методом проб и ошибок всё узнавать....что очень долго.... ибо с английским плохо .

 

[lev]

Ответ: Помогите найти команду!

на VBA пишутся макросы
скрипты пишутся на CorelSCRIPT'е

 

[qsedftghk]

Ответ: Помогите найти команду!

мануал на русском.... скачивай всю ветку по автоматизации в Corele - вот тебе и мануал.