Dim StartRange As Long, EndRange As Long Dim i As Integer, j As Integer With Selection i = .Information(wpsActiveEndPageNumber) j = .Information(wpsNumberOfPagesInDocument) If i < j Then EndRange = .GoToNext(wpsGoToPage).Start StartRange = .GoToPrevious(wpsGoToPage).Start Else EndRange = ActiveDocument.Content.End StartRange = .GoToNext(wpsGoToPage).Start End If End With ActiveDocument.Range(StartRange, EndRange).SelectEnd Sub
WPS2010个人版
Dim StartRange As Long, EndRange As Long Dim i As Integer, j As Integer With Selection i = .Information(wpsActiveEndPageNumber) j = .Information(wpsNumberOfPagesInDocument) If i < j Then EndRange = .GoToNext(wpsGoToPage).Start StartRange = .GoToPrevious(wpsGoToPage).Start Else EndRange = ActiveDocument.Content.End StartRange = .GoToNext(wpsGoToPage).Start End If End With ActiveDocument.Range(StartRange, EndRange).SelectEnd Sub