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