ShapeRange.GroupItems (Word)

Returns a GroupShapes object that represents the individual shapes in the specified group.

This property applies to ShapeRange objects that represent grouped shapes. Use the Item method of the GroupShapes object to return a single shape from the group.

Dim sre As ShapeRange: Set sre =  
Dim gssGroupItems As GroupShapes
Set gssGroupItems = sre.GroupItems