MagicWand2

MagicWand2

Макрос для выделения объектов одного цвета из заранее выделенной области.
Выделить объекты и запустить макрос. Курсор превратится в пипетку. Кликнуть пипеткой на объекте необходимого цвета. Найденные объекты одного цвета будут выделены. Если зажать клавишу Ctrl, то выделение будет происходить по цвету контура.

Для CorelDrawX4
Источник: corelvba.com

Это более функционально http://cdrpro.ru/news/2009-08-17-143

а можно ли как-нибудь исходники посмотреть ?

msplinter, а зачем? :D