Определение номера таблицы в Word - VBA

Формулировка задачи:

Добрый день! Ставлю курсор в таблицу и хочу узнать ее порядковый номер (ведь каждая таблица в документе имеет порядковый номер). Как это можно сделать? Т.е. ставлю курсор в таблицу, нажимаю кнопку макроса и появляется окно: Таблица № такой-то.

Решение задачи: «Определение номера таблицы в Word»

textual
                            Листинг программы 
                        
                            ActiveDocument.Range(ActiveDocument.Range.Start, Selection.Start).Tables.Count
 
ActiveDocument.Tables(ActiveDocument.Range(ActiveDocument.Range.Start, Selection.Start).Tables.Count).ID
 
ActiveDocument.Range(ActiveDocument.Content.Start, Selection.Range.End + 1).Tables.Count
 
Dim MyTabl as Word.Table
set MyTabl = ActiveDocument.Tables(ActiveDocument.Range(ActiveDocument.Range.Start, Selection.Start).Tables.Count)