EXTRACT OLE OBJECTS FROM POWERPOINT SLIDE

V

vonclausowitz

Hi All,

I have a ppt with some OLE objects (Word docs) embedded.

I want to have a macro inside powerpoint to extract each word doc and
save them in a certain folder.
I have tried this but it doesn't run:

For i = 0 To UBound(arrShapes) - 1

ActiveWindow.Selection.SlideRange.Shapes(arrShapes(i)).Select
ActiveWindow.Selection.ShapeRange.OLEFormat.DoVerb Index:=0
ActiveWindow.Selection.Unselect

Next i

The code selects one object, opens Word and then its over. I get an
error.

Can this be done in any way?

Regards
Marco
 
Top