[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    'wdOrientPortrait=0 - книжная,
                    'wdOrientLandscape=1 -альбомная
    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