Return Page Number of Paragraph Number

		Microsoft Office Forums > Microsoft Word > Word VBA
Return Page Number of Paragraph Number

FAQ

Thread Tools

Display Modes

03-04-2021, 05:03 AM

gmayor

Windows 10 Return Page Number of Paragraph Number

Office 2019

Expert

Join Date: Aug 2014

Posts: 4,142

It will show page 2 - the clue is in the information sought by the function.
If you want the page number it starts on then collapse the range to its start before asking the question e.g.

Code:

Dim iStart As Integer, iEnd As Integer
    With Selection.Paragraphs(1).Range
        iEnd = .Information(wdActiveEndPageNumber)
        .Collapse 1
        iStart = .Information(wdActiveEndPageNumber)
        MsgBox "Starts on page " & iStart & vbCr & "Ends on page " & iEnd
    End With

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Return as many Y as the number of occurrence of values in another column	Marcia	Excel	2	11-27-2020 04:19 PM
Table of content to include a page number comprising Section and page number	Allen001	Word	2	11-25-2019 05:38 AM
Excel Match return different row number	kimak	Excel	1	03-01-2017 09:39 AM
How do I create a field that will return the current paragraph number minus one in an automatic list	gugootz	Word	1	11-23-2015 04:58 PM
Page number with chapter number but not from Heading 1	alpruett	Word	5	06-04-2014 02:00 PM