Макрос для вставки нумерации в название таблицы

[artemcx]

Именно в ворде. Объединенные последние ячейки в каждой таблице. Но суть не в этом.

Вот код простой и быстро все работает:
Sub qwer ()
Dim i As Long
Do
i = i + 1
Loop While ActiveDocument.Range.Find.Execute(F in dtext:="Таблица № ", replacewith:="Таблица №" + CStr(i))

End Sub

[shanemac51]

Объединенные последние ячейки в каждой таблице. Но суть не в этом

хотелось бы увидеть одну табличку(можно без инфы)
что с ней в таком ворд -монстре делается
--корректировка
--только чтение
--есть ли поиск

[artemcx]

Вид таблицы не имеет значение. С ней ничего не делается. В предыдущем посте код рабочий, нумерует таблицы по порядку, четко и быстро)

[shanemac51]

буду надеяться, что вам их не понадобится перенумеровывать после вставки/удаления части таблиц