Быстрое заполнение колонтитулов на нескольких документах

Sub AddFooterWithNumber()
    Dim doc As Document
    Dim i As Integer
    Dim folderPath As String
    Dim fileName As String
    
    ' Укажите путь к папке с документами
    folderPath = "C:\Path\To\Your\Documents\"
    
    ' Цикл по 100 документам
    For i = 1 To 100
        fileName = folderPath & "Document" & i & ".docx" ' Измените имя файла по необходимости
        
        ' Открываем документ
        Set doc = Documents.Open(fileName)
        
        ' Добавляем нижний колонтитул с номером
        With doc.Sections(1).Footers(wdFooterPrimary)
            .Range.Text = CStr(i) ' Устанавливаем номер
        End With
        
        ' Сохраняем и закрываем документ
        doc.Save
        doc.Close
    Next i
End Sub