...
    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