Selection.SelectRow (Word)

Seleciona a linha que contém o ponto de inserção ou seleciona todas as linhas que contêm a seleção.

Se a seleção não estiver em uma tabela, ocorrerá um erro.

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