ShapeRange.ParentGroup (Word)

Returns a Shape object that represents the common parent shape of a range of shapes.

Dim sre As ShapeRange: Set sre =  
Dim shpParentGroup As Shape
Set shpParentGroup = sre.ParentGroup