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

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