Помогите с написанием макроса - VB

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

Здравствуйте, помогите пожалуйста с написанием макроса в ворде.
Есть большой тестовый документ, и нужно после каждого "Таблица№", поставить цифру от 1 и до N(сколько будет таблиц).
Примерно алгоритм понял, как это сделать, но не могу реализовать такую штуку: при нажатии кнопки(бинд какой-нибудь клавиши) в поле вводилось бы число 1, затем при повторном, в поле бы вводилось число 2, и так далее до N.
Подскажите, как создать такой макрос, и записать его на кнопку. Заранее спасибо.

Решение задачи: «Помогите с написанием макроса»

textual
                            Листинг программы 
                        

                            Dim i As Long
Do
  i = i + 1
Loop While ThisDocument.Range.Find.Execute(Findtext:="Таблица № ", replacewith:="Таблица №" + CStr(i))

                        