Selection.Rows (Word)

Returns a Rows collection that represents all the table rows in a range, selection, or table.

For information about returning a single member of a collection, see Returning an object from a collection.

Selection.Collapse Direction:=wdCollapseStart 
If Selection.Information(wdWithInTable) = True Then 
 Selection.Rows(1).Borders.OutsideLineStyle = wdLineStyleSingle 
Else 
 MsgBox "The insertion point is not in a table." 
End If