Подсчет количества строк в ячейке таблицы

[ольгаг]

Здравствуйте Уважаемые программисты!
Скажите пожалуйста как поправить код. Ситуация такая:

В документе Word 2003 создана таблица и следующим кодом ниже получается вывести сообщение о количестве строк:

Sub bb()
Const TXT$ = "произвольный текст"
Dim r As Range, x
Set r = Selection.Range
r.Collapse Direction:=wdCollapseStart
For Each x In Split(TXT)
    r.InsertAfter x & " "
    r.Collapse Direction:=wdCollapseEnd
Next
MsgBox r.Information(wdFirstCharacterLineNumber)
End Sub

Вопрос такой: Как вывести аналогичное сообщение (поправить код), если таблица размещена внутри надписи?

Заранее спасибо.


______________
форматируйте код с помощью тегов!

Модератор

[Ципихович Эндрю]

>если таблица размещена внутри надписи?
вау, хорошо, что не внутри яйца
выкладывайте пример

[viter.alex]

Этот макрос не строки считает, а слова в заданном тексте. Вот этот будет считать строки в ячейке, где находится курсор:

Sub test()
    Dim oRng As Range
    Set oRng = Selection.Cells(1).Range
    Dim nStart As Long, nEnd As Long
    nStart = oRng.Information(wdFirstCharacterLineNumber)
    oRng.SetRange oRng.End - 1, oRng.End - 1
    nEnd = oRng.Information(wdFirstCharacterLineNumber)
    MsgBox Str(nEnd - nStart + 1)
End Sub

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