ShapeRange.ParentGroup (Word)

Devuelve un objeto Shape que representa la forma primaria común de un intervalo de formas.

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