удалить все содержимое последней страницы
курсор на предыдущую страницу
вроде работает - нашел в инете допилил
Dim ActivePages As Long
ActivePages = Selection.Information(wdActiveEndPageNumber) 'определяем номер страницы с курсором
Dim PageNumber1 As Long, PageNumber2 As Long
Dim start_ As Long, end_ As Long
'1. Здесь запишите в переменные номера страниц, которые нужно выделить.
' PageNumber1 = InputBox("Номер начальной страницы:")
' PageNumber2 = InputBox("Номер конечной страницы:")
PageNumber1 = ActivePages
PageNumber2 = ActivePages
' '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
Selection.Delete Unit:=wdCharacter, Count:=1
start_ = ActiveDocument.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=PageNumber1 - 1).Start
end_ = ActiveDocument.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=PageNumber2 - 1).Start
ActiveDocument.Range(start_, end_).Select
теперь после удаления содержимого колонтитулов и содержимого последней страницы
перешел на предыдущую страницу - внизу осталась пустая последняя страница
как сейчас на этой странице заменить "Разрыв раздела на следующей странице" заменить на другой "Разрыв раздела на текущей странице" ?