VBA в Word: Таблицы #130346

Привет! Как определить индекс текущей таблицы документа Word при запуске макроса? И как определить имеет фокус в данный момент таблица или, например, параграф Пожалуйста, помогите

Dim MyRangeParagraph, MyRangeTable For i = 1 To ActiveDocument.Paragraphs.Count    ReDim Preserve MyRangeParagraph(i)    Set MyRangeParagraph(i - 1) = ActiveDocument.Paragraphs(i).Range    ActiveDocument.Paragraphs(i).ID = "Paragraph " & i Next For i = 1 To ActiveDocument.Tables.Count    ReDim Preserve MyRangeTable(i)    Set MyRangeTable(i - 1) = ActiveDocument.Tables(i).Range    ActiveDocument.Tables(i).ID = "Table " & i Next For i = 1 To ActiveDocument.Paragraphs.Count    If Selection.InRange(MyRangeParagraph(i - 1)) Then        MsgBox ActiveDocument.Paragraphs(i).ID    End If Next For i = 1 To ActiveDocument.Tables.Count    If Selection.InRange(MyRangeTable(i - 1)) Then        MsgBox ActiveDocument.Tables(i).ID    End If Next