#1
|
|||
|
|||
Count lines within selected text range
How to reliable count lines within selected text range with VBA? oRng.ComputeStatistics(wdStatisticLines) apparently it doesn't work when there is more than one paragraph or the selection comprises more than one page. I found a solution to count lines of the entire document, but not for selected text. Thanks
__________________
Backup your original file before doing any modification. |
#2
|
|||
|
|||
Perhaps I am missing something, but this seems to work just fine:
Code:
Sub ScratchMacro() 'A basic Word Macro coded by Gregory K. Maxey Dim oRng As Range Set oRng = Selection.Range MsgBox oRng.ComputeStatistics(wdStatisticLines) lbl_Exit: Exit Sub End Sub |
#3
|
|||
|
|||
Thanks! Most of the time it works well, but I don't know why changing the selection more to the beginning or end of a line at start of a selection that comprises 2 paragraphs, results is varying, sometimes correct, sometimes total-1 (incorrect lines number by 1).
Few times, selecting the last characters of the 1st line (less +-10 character) through part of the 2nd line return just 1 line in selection, not 2.
__________________
Backup your original file before doing any modification. Last edited by eduzs; 09-18-2023 at 01:17 AM. |
#4
|
|||
|
|||
I found a workaround that seems to work for me, by extending the selection to start of the 1st line and to the end of the last line before retrieve the selection lines count.
Code:
With Selection .StartOf Unit:=wdLine, Extend:=wdExtend .EndOf Unit:=wdLine, Extend:=wdExtend iLins = .Range.ComputeStatistics(wdStatisticLines) End With
__________________
Backup your original file before doing any modification. |
#5
|
|||
|
|||
I wasn't seeing your issue after several trial runs. Anyway, glad you have it resolved.
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Applying a VBA code only on a selected text or range | RobertDany | Word VBA | 2 | 10-09-2021 08:31 AM |
Find and Replace Selected Text or Macro for finding selected text | mrplastic | Word VBA | 4 | 12-20-2019 01:25 PM |
How to count words in a text, arrange them in separate lines and put the grammar class ? | Marcway | Word | 6 | 12-14-2018 04:25 PM |
Distribute text in one cell across a range of cells (overcoming selection.range.cells.count bug) | slaycock | Word VBA | 0 | 02-18-2017 07:00 AM |
Deleting lines above selected text | Chayes | Word VBA | 7 | 11-03-2013 03:43 PM |