Microsoft Office Forums - View Single Post

Guessed · 12-07-2021, 01:56 PM

The preferred way to apply the left indent is to apply a table style since this is part of the table style and shouldn't be locally set. The second macro shows how to change the relevant attributes of your chosen table style if they weren't already correctly set.

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.Style = "Table Grid"   'also turns header row, 1st column & banded rows on
  Next oTbl
End Sub

Sub SetupTableStyle()
  With ActiveDocument.Styles("Table Grid").Table
    .Alignment = wdAlignRowLeft
    .LeftIndent = InchesToPoints(0.3)
  End With
End Sub