Sub Demo()
Dim Tbl As Table
For Each Tbl In ActiveDocument.Tables
  Tbl.LeftPadding = 0
  Tbl.RightPadding = 0
Next
End Sub