Show GroupItems in Word VBA

I am usin开发者_StackOverflow中文版g this code to show the group number, how can I show the groupitems number?

Public Sub Shapename()
  MsgBox (Selection.ShapeRange.Name)
End Sub

Is there an easy way to figure out the shape names and numbers in Word?

That would be the ZOrderPosition property:

Public Sub Shapename()
  MsgBox (Selection.ShapeRange.Name & " " & Selection.ShapeRange.ZOrderPosition)
End Sub