First empty row in table

[papou]

Hi all
I am trying to find out how to programmatically reach the first empty row in
column 1 of a Word table.
Does anybody have a clue?
TIA

Cordially
Pascal

 

[Greg]

Maybe something like:

ub Test()
Dim oCol As Column
Dim oCell As Cell

Set oCol = Selection.Tables(1).Columns(1)

For Each oCell In oCol.Cells
If oCell.Range.Characters.Count = 1 Then
oCell.Select
Selection.Collapse
Exit For
End If
Next

End Sub

 

[papou]

Hi Greg
This works fine thank you.
I thought there may be some other way to do this without using a For Each
loop but obviously you can't?
Thank you again anyway
Cordially
Pascal