怎么样除表格外所有段落都左缩进2个字符。

823954913

有一段代码，能够实现左缩进，但是表格里面的文字也被左缩进了。怎样实现除表格外，所有段落都左缩进2个字符。
Sub test()
    Application.ScreenUpdating = False
    With ActiveDocument.Content.Find
        .ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText
        Do While .Execute
            With .Parent
                Do While .Text Like "[ 　]*"
                    .Characters.First.Delete
                Loop
                .Font.Size = 12
                With .ParagraphFormat
                    .LeftIndent = 0
                    .RightIndent = 0
                    .FirstLineIndent = 0
                    .CharacterUnitLeftIndent = 0
                    .CharacterUnitRightIndent = 0
                    .CharacterUnitFirstLineIndent = 2
                    .LineSpacingRule = wdLineSpace1pt5
                End With
                If .End = ActiveDocument.Content.End Then Exit Do
                .Collapse wdCollapseEnd
            End With
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

liuhoubin168

Sub test()
     Application.ScreenUpdating = False
     With ActiveDocument.Content.Find
         .ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText
         Do While .Execute
             With .Parent
                 Do While .Text Like "[ 　]*"
                     .Characters.First.Delete
                 Loop
                 .Font.Size = 12
                 If .Tables.Count = 0 Then   '判断不在表中
                    With .ParagraphFormat
                        .LeftIndent = 0
                        .RightIndent = 0
                        .FirstLineIndent = 0
                        .CharacterUnitLeftIndent = 0
                        .CharacterUnitRightIndent = 0
                        .CharacterUnitFirstLineIndent = 2
                        .LineSpacingRule = wdLineSpace1pt5
                    End With
                 End If
                 If .End = ActiveDocument.Content.End Then Exit Do
                 .Collapse wdCollapseEnd
             End With
         Loop
     End With
     Application.ScreenUpdating = True
End Sub