This example inserts two new rows above the row that contains the selection, and then it removes the borders from the new rows.
If Selection.Information(wdWithInTable) = True Then
Selection.InsertRows NumRows:=2
Selection.Borders.Enable =False
End If