Detecting_paragraph

gmayor · #1 11-27-2022, 05:10 AM

You could use the following function to count the number of lines in a range

Code:

Function NumLines(Rng As Range) As LongPtr
'Graham Mayor - http://www.gmayor.com
Const wdStatisticLines As LongPtr = 1
    NumLines = Rng.ComputeStatistics(wdStatisticLines)
lbl_Exit:
    Exit Function
End Function

Call it from your process e.g.

Code:

Sub macro1()
MsgBox NumLines(Selection.Paragraphs(1).Range)
End Sub

Bikram · #2 11-27-2022, 10:28 PM

Thanks gmayor, It works like charm.