VBScript用于当前选择

Question

我有一个要求，我需要识别当前的选择，即对象名称，ObjectID和选定值。

所以，我找到了两个不同的VBScripts。请在下面找到2个脚本。 现在，我需要你的帮助才能与两个小伙伴联系。

1. 用于识别对象名称：

   Sub Objects()
       Shtobj = ActiveDocument.ActiveSheet.GetSheetObjects
   
       For i = LBound(Shtobj) To UBound(Shtobj)
           Obj = Shtobj(i).GetCaption.Name.v
           ObjId = Shtobj(i).GetObjectId
   
           MsgBox Obj
           MsgBox ObjId
       Next
   End Sub
   

2. 用于识别所选值：

   Sub theFieldValues()
       Set myfield = ActiveDocument.Fields("Month Name").GetPossibleValues
   
       For i = 0 To myfield.Count - 1
           K = myfield.Item(i).Text
           MsgBox K
       Next
   End Sub