Показать GroupItems в Word VBA

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