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
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