2016-11-22 13 views

ответ

0

Вы можете переместить выделение к началу текущей страницы, используя следующий обходной путь (если вы начинаете с рухнувшего выбора):

If Selection.Range.Information(wdActiveEndPageNumber) = 1 Then 
    Selection.GoTo wdGoToPage, wdGoToNext 
    Selection.GoTo wdGoToPage, wdGoToPrevious 
Else 
    Selection.GoTo wdGoToPage, wdGoToPrevious 
    Selection.GoTo wdGoToPage, wdGoToNext 
End If