Sub FormatTables()
Application.ScreenUpdating = False
Dim Stl As Style, bStlA As Boolean, bStlB As Boolean, Tbl As Table, i As Long, j As Long, ArrCols
bStlA = False: bStlB = False
ArrCols = Array("2", "5", "8", "11")
With ActiveDocument
  For Each Stl In .Styles
    If Stl.NameLocal = "TblGhost" Then bStlA = True
    If Stl.NameLocal = "TblTxt" Then bStlB = True
  Next
  If bStlA = False Then Call AddStyle("TblGhost", True)
  If bStlB = False Then Call AddStyle("TblTxt", False)
  For Each Tbl In .Tables
    With Tbl
      .AllowAutoFit = False
      .LeftPadding = 0
      .RightPadding = 0
      .Range.Style = "TblGhost"
      With .Columns
        .Borders.Enable = False
        .PreferredWidthType = wdPreferredWidthPoints
        .PreferredWidth = 0
      End With
      For i = 0 To UBound(ArrCols)
        If ArrCols(i) > .Columns.Count Then Exit For
        With .Columns(ArrCols(i))
          .PreferredWidth = 150
          .Borders.Enable = True
          For j = 1 To .Cells.Count
            .Cells(j).Range.Style = "TblTxt"
          Next
        End With
      Next
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub
 
Sub AddStyle(strNm As String, bHidden)
Dim Sty As Style
With ActiveDocument
  Set Sty = .Styles.Add(Name:=strNm, Type:=wdStyleTypeParagraph)
  With Sty
    With .Font
      .Hidden = bHidden
      .Size = 12
    End With
  End With
End With
End Sub