Sub RemoveBorders()
Dim oTbl As Word.Table
  For Each oTbl In ActiveDocument.Tables
    With oTbl.Range
      .Shading.Texture = wdTextureNone
      .Shading.ForegroundPatternColor = wdColorAutomatic
      .Shading.BackgroundPatternColor = wdColorAutomatic
      .Font.Color = wdColorAutomatic
    End With
    With oTbl
      .Borders(wdBorderTop).LineStyle = wdLineStyleNone
      .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
      .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
      .Borders(wdBorderRight).LineStyle = wdLineStyleNone
      .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
    End With
  Next oTbl
     
End Sub