Sub Formattingtables()
    Dim i As Integer
    Dim ii As Integer
    Dim doc As Document

        Set doc = ActiveDocument
            ii = doc.Tables.Count
        For i = 1 To ii
            If doc.Tables(i).Rows.WrapAroundText = True Then
                'Ignore the wrapped Tables
            Else
                'Apply formatting to Non - wrapped Tables
                With doc.Tables(i)
                    .AutoFitBehavior wdAutoFitFixed
                    .PreferredWidthType = wdPreferredWidthPoints
                    .PreferredWidth = InchesToPoints(7.2)
                    .Rows.Alignment = wdAlignRowLeft
                    .Rows.LeftIndent = InchesToPoints(0.3)
                End With
            End If
        Next
End Sub