word怎么选中当前页全文
在一篇有上百页的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环境下使用。
赞 (0)