3 Quick Ways to Select the Current Page in Your Word Document

In this post, we are excited to present you 3 quick ways to select the current page in your Word document.

Now and then, you will probably find yourself in the need of selecting the current page as to copy or extract the contents. Normally, we would place cursor at the start of the page and hold down the left-click to select the whole page. But you have to admit that this method doesn’t work well all the time, since errors can occur. While it’s not rocket science to do the job, you can save your time by adopting quicker methods.

Here are our 3 solutions.

Method 1: Keyboard Shortcuts for One-page Document

When there is just one page in the document, what you need to do is place your insertion pointer anywhere inside the document and press “Ctrl+ A”.

Method 2: Keyboard Shortcuts for Multi-page Document

Now speaking of document in multi-page, you can take the bellowing steps:

1. Firstly, position the insertion pointer at the beginning of the target page.
2. Next press “Shift”.
3. Then scroll down to the bottom of that page and click at the end of the page.

Method 3: Run Word Macro

1. First and foremost, click on the target page.
2. Then click “Developer” tab.
3. Next click “Visual Basic” to open VBA editor. Or press “Alt+ F11” to do so.
4. Now click “Normal” project and then the “Insert” tab.
5. Select “Module” on the drop-down menu.
6. Next double click on the newly inserted module to open the coding space.
7. Paste the following codes there:

Sub SelectCurrentPage()
  Dim lCurrentPageStart As Long
  Dim lCurrentPageEnd As Long
  Dim objPageRange As Range
  Dim nCurrentPageNumber As Integer
  Dim nAllPageNumber As Integer
 
  nCurrentPageNumber = Selection.Information(wdActiveEndPageNumber)
  nAllPageNumber = Selection.Information(wdNumberOfPagesInDocument)
  '  Get the start position of current page.
  lCurrentPageStart = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber).Start
 
  '  Get the end position of current page.
  If nCurrentPageNumber = nAllPageNumber Then
    lCurrentPageEnd = ActiveDocument.Content.End
  Else
    lCurrentPageEnd = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber + 1).Start
  End If
 
  '  Select current page.
  Set objPageRange = ActiveDocument.Range(Start:=lCurrentPageStart, End:=lCurrentPageEnd)
 
  objPageRange.Select
End Sub

8. Finally, click “Run” or hit “F5”. All texts on that page are now in selection.

Recover Word Documents

It would be such a pain to find your Word documents corrupted, leaving you inaccessible to your information. Surely, no one wants to have a corrupt doc. Yet, when he unexpected happens, the only option left is to retrieve the data back with either built-in or a third-party tool.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including corrupted Excel and pdf repair software products. For more information visit www.datanumen.com