Count lines within selected text range

eduzs · #1 09-17-2023, 07:39 AM

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

gmaxey · #2 09-17-2023, 08:09 AM

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

eduzs · #3 09-17-2023, 09:38 AM

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.

eduzs · #4 09-17-2023, 03:33 PM

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

gmaxey · #5 09-17-2023, 05:22 PM

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