Dim F As Word.HeaderFooter
    
    Set D = ActiveDocument
    ' вставляем разрыв раздела в конце документа
    With D.Range
        .Collapse Direction:=Word.wdCollapseEnd
        .InsertBreak Type:=Word.wdSectionBreakNextPage
    End With
    ' перебираем нижние колонтитулы
    For Each F In D.Range.Sections.Last.Footers
        F.LinkToPrevious = False ' отсоединяем
        F.Range.Delete ' очищаем
    Next F

Dim D As Word.Document
Dim R As Word.Range
Dim F As Word.HeaderFooter
Dim N As Long
    
    ' документ
    Set D = ActiveDocument ' заменить вашим
    ' всего страниц
    N = D.Range.Information(Type:=Word.wdActiveEndPageNumber)
    ' начало последней страницы
    Set R = D.GoTo(What:=Word.wdGoToPage, _
                   Which:=Word.wdGoToAbsolute, _
                   Count:=N)
     ' вставляем разрыв раздела
    R.InsertBreak Type:=Word.wdSectionBreakNextPage
    ' перебираем нижние колонтитулы
    For Each F In D.Range.Sections.Last.Footers
        F.LinkToPrevious = False ' отсоединяем
        F.Range.Delete ' очищаем
    Next F

Option Explicit

Sub Макрос()

Dim A As Word.Application
Dim D As Word.Document
Dim R As Word.Range
Dim F As Word.HeaderFooter
Dim N As Long
    
    ' документ
    Set A = CreateObject("Word.Application")
    Set D = A.Documents.Add(Template:="C:\Шаблон.dot")
    A.Visible = True
    ' всего страниц
    N = D.Range.Information(Type:=Word.wdActiveEndPageNumber)
    ' начало последней страницы
    Set R = D.GoTo(What:=Word.wdGoToPage, _
                   Which:=Word.wdGoToAbsolute, _
                   Count:=N)
     ' вставляем разрыв раздела
    R.InsertBreak Type:=Word.wdSectionBreakNextPage
    ' перебираем нижние колонтитулы
    For Each F In D.Range.Sections.Last.Footers
        F.LinkToPrevious = False ' отсоединяем
        F.Range.Delete ' очищаем
    Next F
        
End Sub

...
    Dim n As Long, R As Object, F As Object
    ' начало последней страницы
    n = WordDoc.Range.Information(Type:=3) ' 3=Word.wdActiveEndPageNumber
    Set R = WordDoc.GoTo(What:=1, Which:=1, Count:=n) ' 1=Word.wdGoToPage, 1=Word.wdGoToAbsolute
    ' отрезаем
    n = R.Paragraphs.First.Range.Start
    If R.Start <> n Then R.End = n
    R.InsertBreak Type:=2 ' 2=Word.wdSectionBreakNextPage
    ' перебираем нижние колонтитулы
    For Each F In WordDoc.Range.Sections.Last.Footers
        F.LinkToPrevious = False ' отсоединяем
        F.Range.Delete ' очищаем
    Next F
...

...
    Dim n As Long, R As Object, F As Object
    ' начало последней страницы
    n = WordDoc.Range.Information(Type:=3) ' 3=Word.wdActiveEndPageNumber
    Set R = WordDoc.GoTo(What:=1, Which:=1, Count:=n) ' 1=Word.wdGoToPage, 1=Word.wdGoToAbsolute
    ' смещение от начала параграфа
    n = R.Start - R.Paragraphs.First.Range.Start
    ' отрезаем раздел
    R.InsertBreak Type:=2 '2 - Word.wdSectionBreakNextPage
    ' коррекция форматирования с учетом списков
    If n <= 0 Then
    ElseIf R.ListParagraphs.Count <= 0 Then
    Else
        ' убираем нумерацию
        R.ListFormat.RemoveNumbers NumberType:=1 '1 - Word.wdNumberParagraph
        ' восстанавливаем отступ
        With R.Previous(Unit:=4).ParagraphFormat '4 - Word.wdParagraph
            R.ParagraphFormat.FirstLineIndent = 0
            R.ParagraphFormat.LeftIndent = .LeftIndent
        End With
    End If
    ' перебираем нижние колонтитулы
    For Each F In WordDoc.Range.Sections.Last.Footers
        F.LinkToPrevious = False ' отсоединяем
        F.Range.Delete ' очищаем
    Next F
...

    With WordDoc.Sections(WordDoc.Sections.Count).PageSetup
        With WordDoc.Shapes.AddShape( _
                    Type:=1, _
                    Left:=0, _
                    Top:=.PageHeight - .BottomMargin, _
                    Width:=.PageWidth, _
                    Height:=.BottomMargin)  ' 1 = msoShapeRectangle
            .Fill.Solid
            .Fill.ForeColor.RGB = RGB(255, 255, 255)
            .Line.Visible = 0 ' msoFalse
        End With
    End With