Selection.SelectRow (Word)

Selects the row that contains the insertion point, or selects all rows that contain the selection.

If the selection isn't in a table, an error occurs.

Selection.Collapse Direction:=wdCollapseStart 
If Selection.Information(wdWithInTable) = True Then 
 Selection.SelectRow 
End If