Тема: Просмотр переходов на следующую страницу
В ряде случаев пользователям нужно быстро просмотреть переходы на следующую страницу (например, чтобы проверить, корректно ли перенеслись таблицы, не отделился ли заголовок от текста и т.д.). Особенно такой просмотр является трудоемким для больших, многостраничных документов.
В этом случае вам поможет следующий небольшой макрос:
Sub GoToNextPage()
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=2, Name:=""
Selection.MoveUp Unit:=wdLine, Count:=2
End Sub
В приведенном макросе после перехода на следующую страницу также выполняется смещение курсора на 2 строки вверх для того, чтобы мы могли просмотреть несколько строк, предшествующих переходу на следующую страницу.
Внимание! Приведенный макрос "пропускает" переход со страницы 1 на страницу 2. Этот переход можно просмотреть вручную.
Для удобства можно присвоить этому макросу сочетание "горячих клавиш". Я, например, присвоил ему сочетание Ctrl+PgUp.
В ранних версиях это сочетание по умолчанию как раз и вызывало переход на следующую страницу. В версии 2013 эти клавиши по умолчанию вызывают поиск следующего вхождения искомого выражения. Однако для выполнения такого поиска имеется известное сочетание клавиш Ctrl+Alt+Y.
Поэтому сочетание клавиш Ctrl+PgUp можно без большого ущерба для работы "нагрузить" другой функциональностью - в данном случае просмотром перехода на следующую страницу.
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.