Detecting_paragraph

Bikram · #1 11-27-2022, 01:38 AM

Greeting,
I am wondering if paragraphs containing more than 1 line can be detected in word by using something like

Code:

    If Selection.paragraphs(1).range.count <> then
    'If true then formats in one way else formats in another way.
    End If

But unfortunately, line.count method does not seem to exist. How can it be detected? I really appreciate any help you can provide.

gmayor · #2 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 · #3 11-27-2022, 10:28 PM

Thanks gmayor, It works like charm.

macropod · #4 11-28-2022, 12:13 AM

Do be aware that approach returns 0 regardless of the line count when the paragraph is in a table cell.