Форум по VBA и MS Office

Sub макрос()
   
    Dim PageNumber1 As Long, PageNumber2 As Long
    Dim start_ As Long, end_ As Long
   
   
    '1. Здесь запишите в переменные номера страниц, которые нужно выделить.
    PageNumber1 = InputBox("Номер начальной страницы:")
    PageNumber2 = InputBox("Номер конечной страницы:")
   
    '2. Проверка, что указанная начальная страница существует.
    If ActiveDocument.ComputeStatistics(wdStatisticPages) < PageNumber1 Then
        MsgBox "В файле нет указанной начальной страницы.", vbExclamation
        Exit Sub
    End If
   
    '3. Проверка, что указанная конечная страница существует.
    If ActiveDocument.ComputeStatistics(wdStatisticPages) < PageNumber2 Then
        MsgBox "В файле нет указанной конечной страницы.", vbExclamation
        Exit Sub
    End If
   
    '4. Запись в переменную начала начальной страницы.
    start_ = ActiveDocument.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=PageNumber1).Start
   
    '5. Запись в переменную конца конечной страницы.
        ' Нужно в переменную записать начало следующей страницы после указанной конечной.
        ' Если конечная страница - это последняя страница, то запишем в переменную конец файла.
    If ActiveDocument.ComputeStatistics(wdStatisticPages) = PageNumber2 Then
        end_ = ActiveDocument.Range.End
    Else
        end_ = ActiveDocument.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=PageNumber2 + 1).Start
    End If
   
    '6. Выделение указанных страниц.
    ActiveDocument.Range(start_, end_).Select
   
End Sub