GetArea12 macro

This macro doesn't work with CorelDRAW X7. Does anybody have one that will work with this version of Corel?