Word: Определить количество строк - VBA

Формулировка задачи:

Добрый день! Подскажите как определить количество строк в объекте например Paragraph или Range

Решение задачи: «Word: Определить количество строк»

textual
                            Листинг программы 
                        

                            Function RangeLinesCount(MyRange As Range)
    Dim oWord As Range, KolStrok&, Line1%, LineOld%
    LineOld = MyRange.Information(wdFirstCharacterLineNumber)
    KolStrok = 1
    For Each oWord In MyRange.Words
        If oWord.Text = Chr(13) & Chr(7) Then oWord.End = oWord.Start
        Line1 = oWord.Information(wdFirstCharacterLineNumber)
        If Line1 <> LineOld Then
            KolStrok = KolStrok + 1
            LineOld = Line1
        End If
    Next
    RangeLinesCount = KolStrok
End Function
                        