[Word VBA] how to compute a table occupies rows number

[jackni]

Hi, All

In WORD, when a table's column width is not large enough, usually some cells will occupies more than one row to display content in it.
For example:
A 3 * 4 table, when content in each cell is not long enough, the table occupy only 3 rows in WORD, but when content in for exam. "cell(2,1)" is very long, the table will occupy more than 3 rows.
How do I compute lines a table occupies?
I know one way to check each cell's range, and use computestatistics(wdstatisticslines), but it has to check each cell's range, there are a lot of tables in word,i t's not a time-saving method.
Is there a better way than this? maybe row by row, or just can compute table's lines.
Thank you very much!

 

[Yongle]

What you are trying to do is not easy in Word. but here is another siggestion
(place bookmark at foot of table)
You could calcualte vertical positions of various things and use difference to get height
(bookmark vertical position - top of table is approx table height etc)

    Set tbl = ActiveDocument.Tables(1)
'TOP of TABLE
    tbl.Select
    MsgBox 1 & vbTab & Selection.Information(wdVerticalPositionRelativeToPage)
'TOP OF EACH ROW IN TABLE
    For r = 1 To tbl.Rows.Count
        tbl.Cell(r, 1).Select
        MsgBox "row " & r & vbTab & Selection.Information(wdVerticalPositionRelativeToPage)
    Next r
'BOOKMARK placed at foot of table
    MsgBox 3 & vbTab & ActiveDocument.Bookmarks("NameOfBookmark").Range.Information(wdVerticalPositionRelativeToPage)

 

[jackni]

Yongle,
Thank you very much, your idea is great, I think I'll take your advise!
Thanks again!