wps怎么全选所有页

在一篇有上百页的word文档里，如何全选当前页的内容呢，当然可以用鼠标拖选的老办法，这里介绍几种新办法

方法一：

1．光标点在页末，按“Shift＋PageUp”；

2．光标点在开头，按“Shift＋PageDown”；

3．“Shift＋鼠标单击”；

4．“Shift＋(→←↑↓)”。

方法二：

下面的代码的功能是，全选word文档的当前页，注意，是当前页，即插入条所在的页，而不是全文。

Dim CurrentPageStart As Long, CurrentPageEnd As Long, myRange As Range

Dim Currentpage As Integer, Pages As Integer

On Error Resume Next

Currentpage = Selection.Information(wdActiveEndPageNumber)

Pages = Selection.Information(wdNumberOfPagesInDocument)

CurrentPageStart = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=Currentpage).start

If Currentpage = Pages Then

CurrentPageEnd = ActiveDocument.Content.End

Else

CurrentPageEnd = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=Currentpage + 1).start

End If

Set myRange = ActiveDocument.Range(CurrentPageStart, CurrentPageEnd)

myRange.Select 注意，以上代码在VBA环境下使用。