在Word VBA中显示GroupItems

Question

我使用此代码显示组号，如何显示组项号码？

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

有没有一种简单的方法可以找出Word中的形状名称和数字？

Answer 1

那将是ZOrderPosition属性：

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