|
|
#2
06-21-2023, 05:10 PM
|
||||
|
||||
There is a special bookmark to work with a range (or select) for a full page
Code:
Sub GetLines() Dim rng As Range Set rng = ActiveDocument.GoTo(What:=wdGoToPage, Count:=3) Set rng = rng.GoTo(What:=wdGoToBookmark, Name:="\page") MsgBox rng.ComputeStatistics(wdStatisticLines) End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Help making legal line number stay at 25 lines a page when I have sections with single spaced text | LegalTranscriber2017 | Word | 5 | 07-16-2022 06:50 PM |
| Moving hand written note from one page to another - or another notebook | justpk | OneNote | 1 | 05-05-2019 05:55 PM |
| Grouping Lines by Project number on a separate page | taholmes160 | Excel | 2 | 04-17-2019 03:57 AM |
 Customizing number of lines per page
|
Word Rox | Word | 1 | 04-05-2015 07:28 PM |
| Number of lines on page problem | JamesT | Word | 0 | 08-27-2009 04:52 PM |
Windows 10 
Office 2016
Threaded Mode