Макрос - разбить таблицы по ГОСТ.

[bdfy]

Хочу написать макрос чтобы в один клик оформлять таблицы по ГОСТ.
- добавляется вторая строчка (будем считать что шапка в одну строку идет).
- строка забивается нумерацией 1 2 3 4 5
- таблица разрывается на каждой странице (добавляется строка с нумерацией)
- сверху добавляется "Продолжение таблицы", "Окончание таблицы".

вот все в принципе ясно и решаемо, а вот как узнать где таблица переходит на новую страницу ?

[Вождь]

Сообщение от bdfy

...как узнать где таблица переходит на новую страницу?

Это как раз самое простое в вопросе
Для начала макрос разбивки таблицы на страницы:

Option Explicit

Sub Таблицу_на_страницы()
   
Dim D As Word.Document
Dim T As Word.Table
Dim R As Word.Range, RT As Word.Range
Dim P&
    
    ' документ с таблицей
    Set D = Selection.Document
    ' первая выбранная таблица
    Set T = Selection.Tables(1)
    ' первая страница таблицы
    With T.Range
        .Collapse Direction:=wdCollapseStart
        P = .Information(Type:=Word.wdActiveEndPageNumber)
    End With
    ' запоминаем область таблицы
    Set RT = T.Range
    ' перебор страниц
    Do
        P = P + 1
        If P > D.Range.Information(Type:=Word.wdNumberOfPagesInDocument) Then Exit Do
        ' начало страницы
        Set R = D.GoTo(What:=Word.wdGoToPage, _
                       Which:=Word.wdGoToAbsolute, _
                       Count:=P)
        If Not R.InRange(RT) Then Exit Do
        ' первая на странице строка таблицы
        R.Expand Unit:=Word.wdRow
        ' вставляем разрыв
        R.InsertBreak Type:=Word.wdSectionBreakNextPage 'wdPageBreak
    Loop
    
End Sub

[bdfy]

готового решения к слову нет в копилке ? не верю я что мне первому такая штука понадобилась

[Вождь]

Сообщение от bdfy

готового решения к слову нет в копилке ?

Именно ГОСТом (кстати, не указан какой) не занимался, а отдельно по каждому пункту задача решена. А ГОСТ не описывает форматирование текста таблицы? Такого пункта по-моему не хватает. Прикинул, и действительно, осталось сделать не много, наверное, ГОСТ то я не читал