Макрос по форматированию таблиц

darklumen, приложите ваш документ.

Я вижу ваш документ и понимаю, что для того, чтобы сделать то, как вы просите, нужно как минимум создать подходящие стили для заголовков (для ваших разделов).
Во-вторых, чтобы не мучится вот с таким ручным вводом надтабличных надписей, следует автоматизировать их вставку. И создать стили, опять же, для надписей.
В-третьих, о надписи "Продолжение таблицы". У вас это не продолжение, а новая таблица в новом разделе. На сайте уже поднимался вопрос неоднократно о такой надписи - ГОСТом она не предусмотрена (хотя в Учебных заведениях продолжают этой ерундой заниматься).
Посмотрите в комментариях к упомянутой заметке, как люди выходят из положения.

В вашем случае (для надтабличной надписи) я бы создал стили для заголовков, оформил бы имеющиеся нумерованные заголовки этими стилями, установил бы автоназвания для рисунков и таблиц (меню Вставка - Ссылка - Название), написал бы макрос для всех таблиц, вырезающих их и вставляющих заново. При этом автоматом бы проставились надтабличные надписи. И вручную бы прошелся по документу, где надо оформляя текст и эти надписи стилями.
Да, придется поработать, согласен.

Спрашивайте, что непонятно в моем ответе.
Кстати, вы можете почитать заметки на вашу тему:
Как автоматически вставить подпись к рисунку или таблице

Я бы вам еще рекомендовал защищать стили от изменений. Тогда можно будет не боятся, что стили вашего документа "поедут", например, при вставке скопированного из других документов текста.

Чтобы защитить документ, в меню Сервис выберите команду "Защитить документ". Откроется область задач Защита документа. Установите флажок на параметре "Ограничить набор разрешенных стилей" (дополнительно можно выбрать нужные стили в окне, открываемом по нажатию кнопки "Настройка"), а затем нажмите кнопку "Да, включить защиту". Откажитесь от установки пароля (если вы работате один и не передаете шаблон другим людям).

Попробуйте такой макрос. Я усовершествовал сделанный вами макрос:

Sub InsertTableCaption()
  Dim oTbl As Table
  Dim oRng As Range
  
  For Each oTbl In ActiveDocument.Tables
    'Вставляем название
    oTbl.Range.InsertCaption "Таблица", , , wdCaptionPositionAbove
    'Запоиминаем положение слова "Таблица"
    Set oRng = oTbl.Range.Paragraphs.First.Previous.Range.Words.First
    'Переносим диапазон в конец этого слова
    oRng.Collapse wdCollapseEnd
    'Вставляем поле StyleRef
    With ActiveDocument.Fields.Add(oRng, wdFieldStyleRef, "Стиль1 \n")
      'После поля вставляем точку
      .Result.InsertAfter "."
    End With
  Next
End Sub

Ключа \s у поля STYLEREF нет. Выравнивать название таблицы нужно не вручную, а изменяя стиль «Название объекта»

По моему мнению, это происходит, так как у вас названия глав не оформлены как заголовки. Я вам рекомендую не создавать для таких элементов свой стиль, а редактировать имеющийся, так как по сути это и есть заголовки соответствующих разделов документа. Да, и закройте стили от изменения, чтобы не поехали они.
Только что попробовал - все получается корректно и с первой цифрой и со второй по порядку таблиц.

надеюсь последний вопрос по этой тему: а вот если в тексте у каких-то таблиц уже есть заголовки, а у каких-то нет, можно дописать условие при котором если есть заголовок - то его просто обновляем, а ели нет- то вставляем!

не очень понятно, объясните пожалуйста