2016-11-22 18 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 
関連する問題