Breaking News: Grepper is joining You.com. Read the official announcement!

number of lines per page

The Sheep answered on October 11, 2022 Popularity 2/10 Helpfulness 1/10

answer number of lines per page

number of lines per page

Comment

Sub CountLinesInTheSelectedParagraph()
    Dim rngFirst As Range, rngLast As Range

    Set rngFirst = Selection.Range
    rngFirst.Expand Unit:=wdParagraph
    rngFirst.Collapse Direction:=wdCollapseStart

    Set rngLast = Selection.Range
    rngLast.Expand Unit:=wdParagraph
    rngLast.Collapse Direction:=wdCollapseEnd

    Debug.Print _
        rngLast.Information(Type:=wdFirstCharacterLineNumber) _
        - rngFirst.Information(Type:=wdFirstCharacterLineNumber) _
        & " lines in the selected paragraph"
End Sub

Popularity 2/10 Helpfulness 1/10 Language whatever

Source: stackoverflow.com

Tags: lines whatever

Link to this answer
Share Copy Link