Sub insert_new_section()
    Application.ScreenUpdating = False
    
    ' Вставляем новый раздел и отключаем связь колонтитулов
    Call AddSectionAndKillLinkToPrevious1
    
    ' Настраиваем ориентацию, поля и колонтитулы для нового раздела
    With Selection.Sections(1).PageSetup
        .DifferentFirstPageHeaderFooter = False ' Отключаем особый колонтитул первой страницы
        .OddAndEvenPagesHeaderFooter = False   ' Отключаем разные колонтитулы для четных и нечетных страниц
        .PaperSize = wdPaperA4                 ' Размер страницы A4
        .Orientation = wdOrientLandscape       ' Альбомная ориентация
        ' Устанавливаем поля для альбомного листа
        .TopMargin = CentimetersToPoints(2.5)  ' Верхнее поле 2,5 см
        .BottomMargin = CentimetersToPoints(1) ' Нижнее поле 1 см
        .LeftMargin = CentimetersToPoints(1.5) ' Левое поле 1,5 см
        .RightMargin = CentimetersToPoints(1.5) ' Правое поле 1,5 см
    End With
    
    ' Удаляем верхние и нижние колонтитулы из вставленного раздела
    Dim rngHeaderFooter As Range
    Set rngHeaderFooter = Selection.Sections(1).Footers(wdHeaderFooterPrimary).Range
    rngHeaderFooter.Delete
    Set rngHeaderFooter = Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range
    rngHeaderFooter.Delete
    Set rngHeaderFooter = Nothing
    
    ' Вставляем следующий раздел и настраиваем его
    Call AddSectionAndKillLinkToPrevious1
    With Selection.Sections(1).PageSetup
        .Orientation = wdOrientPortrait        ' Книжная ориентация
        .DifferentFirstPageHeaderFooter = False ' Отключаем особый колонтитул первой страницы
    End With
    
    Application.ScreenUpdating = True
End Sub

Sub AddSectionAndKillLinkToPrevious1()
    ' Вставка разрыва раздела и отключение связи колонтитулов
    Dim j As Long
    Dim oDoc As Word.Document
    Set oDoc = ActiveDocument
    
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    
    With Selection.Sections(1)
        For j = 1 To 3
            .Headers(j).LinkToPrevious = False
            .Footers(j).LinkToPrevious = False
        Next j
        
        ' Настройка нумерации страниц
        With .Headers(1).PageNumbers
            .RestartNumberingAtSection = False ' Продолжить нумерацию
        End With
    End With
    
    Set oDoc = Nothing
End Sub

Sub insert_new_section()
Application.ScreenUpdating = False
Call AddSectionAndKillLinkToPrevious1
Call AddSectionAndKillLinkToPrevious1
Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Sections(1).PageSetup
    .DifferentFirstPageHeaderFooter = False 'Особый кололнтитул первой страницы
    .OddAndEvenPagesHeaderFooter = False    'Разные колонтитулы четных и нечетных
    .PaperSize = wdPaperA4                  'Размер страницы wdPaperA4=7, wdPaperA3=6
    .Orientation = wdOrientLandscape        'wdOrientLandscape=1 -альбомная
                    
    ' Устанавливаем поля для альбомного листа
    .TopMargin = CentimetersToPoints(-2.4)  ' Верхнее поле -2,4 см
    .BottomMargin = CentimetersToPoints(1) ' Нижнее поле 1 см
    .LeftMargin = CentimetersToPoints(1.5) ' Левое поле 1,5 см
    .RightMargin = CentimetersToPoints(1.5) ' Правое поле 1,5 см

    End With
'Удаляем верхние и нижние колонтитулы из всталенного раздела
'Актуально, если документ с рамками.
'Перед вставкой новых рамок удаляем старые
    Dim rngHeaderFooter As Range
    Set rngHeaderFooter = Selection.Sections(1) _
        .Footers(wdHeaderFooterPrimary).Range
    rngHeaderFooter.Delete
    Set rngHeaderFooter = Selection.Sections(1) _
        .Headers(wdHeaderFooterPrimary).Range
    rngHeaderFooter.Delete
    Set rngHeaderFooter = Nothing
Application.ScreenUpdating = True
End Sub

Sub AddSectionAndKillLinkToPrevious1()
'часть кода отсюда
'http://gregmaxey.mvps.org/word_tip_pages/add_section_break_and_unlink_headers.html

    Dim j As Long
Dim oDoc As Word.Document
Dim myRng As Word.Range
Set oDoc = ActiveDocument
Selection.InsertBreak Type:=wdSectionBreakNextPage
With Selection.Sections(1)
    For j = 1 To 3
    .Headers(j).LinkToPrevious = False
    .Footers(j).LinkToPrevious = False
    Next j
    'Note: j provides the constant value to unlink all three header\footer types.
    With Selection.Sections(1).Headers(1).PageNumbers
'        .NumberStyle = wdPageNumberStyleArabic
'        .HeadingLevelForChapter = 0
'        .IncludeChapterNumber = False
'        .ChapterPageSeparator = wdSeparatorHyphen
        .RestartNumberingAtSection = False 'Выбираем "Продолжить нумерацию"
'        .RestartNumberingAtSection = True  'Эти строки, если
'        .StartingNumber = 1                'надо начать с единицы
    End With
End With
Set oDoc = Nothing
End Sub