Здраствуйте!
Помогите чайнику стать немного самоваром

Есть задача написать макрос для Corel, который выполняет такую последовательность действий:
1. Рисует контур для фигуры
2. Разбивает получившуюся фигуру на контур и основную фигуру
3. Удаляет исходную фигуру

Вроде бы все и просто, можно сделать с использованием конструктора, но есть проблема в том что разбить результирующую фигуру не получается:( Если писать отдельными макросами все отлично, но после первой операции нужно снять выделение и снова выделить фигуру. Как это можно реализовать в коде макроса?

Мой код

Dim i As Integer

Private Sub CommandButton1_Click()
i = Val(TextBox1.Text)
Dim OrigSelection As ShapeRange

Set OrigSelection = ActiveSelectionRange
Dim eff1 As Effect
Set eff1 = OrigSelection(1).CreateContour(cdrContourInside, 0.19685, i, cdrDirectFountainFillBlend, CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), 0, 2)

ActiveSelection.Separate
OrigSelection(1).Delete

UserForm1.Hide
End Sub

Подскажите как на страницу импортировать Корловский файл?

ctrl-i

Цитата:

ActiveLayer.Import "C:\Temp\test.cdr"

спасибочки.
только он импортирует все страницы, мне бы было достаточно чтоб только первую.

еще вопрос: а как сделать так, чтоб при экспорте нескольких (максимум четырех) файлов, они располагались друг под другом?

Скажите пожайлуста,
у меня стоял CorelDraw 10 и в нем я написал макрос.
Теперь я поставил CorelDraw 13 и это макрос там не работает, выдает какие-то непонятные мне ошибки (вроде в 10 - все работало на ура).

Даже не знаю куда сунуться и почему не работает? есть предложение что там разный синтаксис у команд и функций...

Ошибки выдает на функциях chr(13) и year(date)...

Пишет что-то типо

Ошибка компиляции:
не найден библиотека или проект

Поставил 11 Корел, там все работает...