Microsoft Office Forums - View Single Post - [Solved] How to count the number of lines in a Word table cell

macropod · 10-21-2025, 10:21 PM

Similarly:

Code:

Dim p As Single, l As Long, Rng As Range
Set Rng = Tbl.Cell(r, c).Range
With Rng
  .End = .End - 1
  p = .Characters.First.Information(wdVerticalPositionRelativeToPage): l = 1
  Do While .Words.First.Start < .Words.Last.Start
    .MoveStart wdWord, 1
    If .Characters.First.Information(wdVerticalPositionRelativeToPage) > p Then
      p = .Characters.First.Information(wdVerticalPositionRelativeToPage): l = l + 1
    End If
  Loop
End With
MsgBox l

This, too, works when the cell spans a page break.