在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