Microsoft Office Forums - View Single Post

gmayor · 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