Re: CorelDRAW , макрос

Написал Sancho в 04/02/2008 13:58:58

Извиняйте, у меня времени тоже в обрез...

Dim mySelection As ShapeRange, s As Shape
Dim sr As New ShapeRange
Set sr = ActiveSelectionRange
Set mySelection = ActiveSelectionRange

For Each s In mySelection
s. обработка шейпа.
Next s
ActiveDocument.ClearSelection
sr.CreateSelection