Sub Demo()
Dim i As Long
With Selection.Tables(1)
  With .Rows(1).Range
    For i = 1 To .Borders.Count
      .Borders(i).LineStyle = wdLineStyleNone
    Next
    .Borders(wdBorderBottom).LineStyle = Options.DefaultBorderLineStyle
  End With
End With
End Sub