2016-11-22 2 views

Répondre

0

Vous pouvez déplacer la sélection au début de la page en cours en utilisant la solution suivante (en supposant que vous êtes à partir d'une sélection réduite):

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