ole_object = create oleobject
ll_error = ole_object.ConnectToNewObject("Word.application")
...

With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = "Header text"
    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"
End With

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


Dim F As Word.HeaderFooter, D As Word.Document, n As Integer, R As Word.Range
Set D = ActiveDocument
' всего страниц
n = D.Range.Information(Type:=3)
' начало последней страницы

'wdGoToPage = 1 wdGoToAbsolute = 1
Set R = D.GoTo(What:=Word.wdGoToPage, _
                Which:=Word.wdGoToAbsolute, _
                Count:=n)
' вставляем разрыв раздела
'wdSectionBreakNextPage = 2
R.InsertBreak Type:=Word.wdSectionBreakNextPage
' перебираем нижние колонтитулы
For Each F In D.Range.Sections.Last.Footers
    F.LinkToPrevious = False ' отсоединяем
    F.Range.Delete ' очищаем
Next F
    
End Sub

ll_n = ole_object.ActiveDocument.Range.Information(3)

For Each

...
ll_n = ole_object.ActiveDocument.Content.Information[1]
			
			oleobject 	ole_range
			
			ole_range = create oleobject
			
			ole_range = ole_object.ActiveDocument.GoTo (1,1,ll_n)
			
			ole_range.InsertBreak (2)
			
			ole_section2 = create oleobject
			ole_section2 = ole_object.ActiveDocument.Sections[2]
			
			ole_section2.Footers[1].LinkToPrevious = False
			ole_section2.Footers[1].Range.Delete
...