Word VBA Макросы: Как разбить число (номер страницы) на цифры и записать цифры в таблицу в верхний колонтитул?

Автор stl.vvv, 28 ноября 2019, 18:53

stl.vvv

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

[вложение удалено администратором]

Администратор

Предполагается:
1) что во всех разделах тип верхнего колонтитула "Верхний колонтитул" (есть ещё типы: Колонтитул первой страницы, Колонтитулы чётных / нечётных страниц);
2) перед началом макроса в таблице, в столбцах 4 - 9 должны быть нули, т.к. макрос работает только с теми ячейками, которые надо заполнить.

Макрос
Sub Макрос()

    Dim раздел As Section, табл As Table
    Dim НомерСтраницы As Long
    Dim c As Long, j As Long
   
   
    ' Запись начального номера страницы в переменную.
    НомерСтраницы = 10
   
    ' Движение по всем разделам.
    For Each раздел In ActiveDocument.Sections
   
        ' Присваеим имя "табл" таблице, которая находится в верхнем колонтитуле в текущем разделе.
        Set табл = раздел.Headers(wdHeaderFooterPrimary).Range.Tables(1)
       
        ' Заполнение ячеек таблицы.
            ' Предполагается, что изначально во всех ячейках нули.
        ' Переменная "c" нужна для перемещения по столбцам таблицы.
        c = 9
        ' Движение по цифрам номера страницы справа налево.
        For j = Len(CStr(НомерСтраницы)) To 1 Step -1
            табл.Cell(1, c).Range.Text = Mid(НомерСтраницы, j, 1)
            c = c - 1
        Next j
       
        ' Изменение числа в переменной.
        НомерСтраницы = НомерСтраницы + 1
       
    Next раздел
   
    ' Сообщение.
    MsgBox "Готово.", vbInformation

End Sub
[свернуть]