Shape.Ungroup (Word)

Ungroups any grouped shapes in the specified shape.

This method sisassembles pictures and OLE objects within the specified shapeand returns the ungrouped shapes as a single ShapeRange object. Because a group of shapes is treated as a single object, grouping and ungrouping shapes changes the number of items in the Shapes collection and changes the index numbers of items that come after the affected items in the collection.

Set myDocument = ActiveDocument 
For Each s In myDocument.Shapes 
 s.Ungroup 
Next