Visio 2002 Pro - Ungroup Shapes with a macro

[MakeItSo]

Hi Guys,

who knows how to check for grouped shapes in a macro?

Background: I am trying to export all text from a vsd. However, if shapes are grouped, not all text gets exported. So i have to ungroup the shapes, export and afterwards cancel the ungroup.
I have tried with
Sendkeys "^a"
Selection.Ungroup"

but I receive an error message with the Selection method.
Is it because I select all and not all Shapes?

If this is the case, how do I select all Shapes?

Thanks for any feedback,
MakeItSo

Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:

http://home.arcor.de/andygalambos