Counting lines

[Conan Kelly]

Hello all,

Is there a way to count how many lines are in the current selection?

I've been looking for it but haven't found anything. I've found the Count property of Paragraphs, Words, & Sentences; but no Lines
property.

If not possible to count lines, how about counting the number of paragraph marks in the current selection?

 

[Greg Maxey]

Sub Scratchmacro()
Dim oRng As Range
Set oRng = Selection.Range
MsgBox oRng.ComputeStatistics(wdStatisticLines)
End Sub