Microsoft Office Forums - View Single Post

Guessed · 12-07-2021, 05:37 PM

OK, if standardising your tables more comprehensively is not what you want then you can just set the alignment without restyling.

Code:

Sub TablesResizeAll()
  Dim oTbl As Table
  For Each oTbl In ActiveDocument.Tables
    oTbl.AutoFitBehavior wdAutoFitFixed
    oTbl.PreferredWidthType = wdPreferredWidthPoints
    oTbl.PreferredWidth = InchesToPoints(7.2)
    oTbl.Rows.Alignment = wdAlignRowLeft
    oTbl.Rows.LeftIndent = InchesToPoints(0.3)
  Next oTbl
End Sub