Как узнать, что слово разбито в таблице на 2 несколько строк...

[Busine2009]

пример смотрите во вложенном файле.
Смысл в чём? Чтобы выделить слово, которое так разбито.

[Aent]

Код: Выделить всё

Public Sub NumberLnForCellCalculatingExample()
   With ActiveDocument.Tables(1).Cell(1, 1).Range
       Debug.Print 1 + .Characters(.End - 1).Information(wdFirstCharacterLineNumber) - _
           .Information(wdFirstCharacterLineNumber)
   End With
End Sub

Далее, полагаю, очевидно.

[Busine2009]

Aent
хорошо гляну - сразу не могу разобраться - слабый ум.