vba word. Не работает код проверки что текст в ячейке написан в одну строку

Подскажите как проверить, что текст в ячейке таблицы помещается в одну строку?

Нижеподанный код работал, но почему-то 2 дня как выдает один и тот же результат, несмотря на значения в ячейке

Function IsCellWrapped(tbl As Table, x As Integer, y As Integer)
    Dim rngCel As Range
    Dim firstLine As Long
    Dim lastLine As Long
    Set rngCel = tbl.cell(x, y).Range
    firstLine = rngCel.Information(wdFirstCharacterLineNumber)
    rngCel.Collapse wdCollapseEnd
    rngCel.MoveEnd wdCharacter, -1
    lastLine = rngCel.Information(wdFirstCharacterLineNumber)
    IsCellWrapped = lastLine > firstLine
End Function