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

[GonshikNerealniy]

Здравствуйте!
Есть 100 документов вордовских, на каждом надо поставить нижний колонтитул с номером. На первом документе в колонтитуле будет 1, на втором 2 и так далее до последнего документа.
Заранее спасибо!

[Ципихович Эндрю]

ну так 2025 год на дворе......, джипити в помощь........

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

не проверял))