Разбивать книгу по 5 страниц

Sub Cut5()
'
'   Вырезание очередных 5 страниц из общего файла
'
'
    Dim m
'    Номер файла из 5 страниц
    m = 2
    Dim n
'    Номер (в общем файле) первой страницы файла номер m
    n = 5 * m + 1
'    Переход к началу будущего  частичного файла номер m
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Str(n)
    Selection.Find.ClearFormatting
'    Выделение предыдущих страниц
    Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
'    Удаление предыдущих страниц
    Selection.Delete Unit:=wdCharacter, Count:=1
'    Переход к концу будущего  частичного файла номер m
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="6"
    Selection.Find.ClearFormatting
'    Выделение последующих страниц
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
'    Удаление последующих страниц
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub