Does this one solve the allow autofit issue?
Code:
Sub TablesResizeAll()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
If Not oTbl.Rows.WrapAroundText Then
oTbl.AllowAutoFit = False
oTbl.AutoFitBehavior wdAutoFitFixed
oTbl.PreferredWidthType = wdPreferredWidthPoints
oTbl.PreferredWidth = InchesToPoints(7.2)
oTbl.Rows.Alignment = wdAlignRowLeft
oTbl.Rows.LeftIndent = InchesToPoints(0.3)
End If
Next oTbl
End Sub