卡饭网 > 其他 > 正文

word全选当前页

来源:本站整理 作者:梦在深巷 时间:2018-08-24
在一篇有上百页的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环境下使用。

相关推荐