#1
|
|||
|
|||
Return Page Number of Paragraph Number
Hello
Any ideas if i want to know the Page No of which Para Number Exists. I am unable to find any thread of the same. Niether i am unable to fine syntax it. Because Determining the Current Page Number (Microsoft Word) mentions as below Quote:
By Using .Paragraphs(txtParaNo.Text) I want to get its Page Number. Code:
dim i as integer With ActiveDocument For i = 1 to .Range.Paragraphs.Count With .Paragraphs(i) End with Next End with |
#2
|
||||
|
||||
You could use a function to get the page number of any paragraph you supply it with e.g.
Code:
Function PageNum(iPara As Integer) As Integer With ActiveDocument With .Paragraphs(iPara).Range PageNum = .Information(wdActiveEndPageNumber) End With End With End Function
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Thank you very much Sir,
Great Function Now i got myself very clear on the Right Syntax ie ActiveDocument.Paragraphs(2).Range.Information(wdA ctiveEndPageNumber) A Last question on this thread For eg lets say a Paragraph(6) is at the End Of (EO) Page 1 and Continues to next Page 2. ie 2 - 3 lines of Para(6) EO pg1 and 5 - 6 lines BO Pg2 Your function shall result as What and Why ? SamD |
#4
|
||||
|
||||
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 |
#5
|
|||
|
|||
Thank you sir for the clarification and indeed a valuable input of .Collapse
SamD |
Thread Tools | |
Display Modes | |
|
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 |