在word中用VBA做段落缩进正常，但取消缩进时发现取消不了。 录制时正常，但是重复运行时发现无法取消缩进

VBA代码如下：
Sub set_write_simple()
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevel1
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
End With
Selection.TypeText Text:="一级" '这句话没有缩进，正常
Selection.TypeParagraph

With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(1.06)
.RightIndent = CentimetersToPoints(0)
.FirstLineIndent = CentimetersToPoints(0.35)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 6
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 2
End With
Selection.TypeText Text:="正文" '这句话做了段落缩进和首行缩进，正常
Selection.TypeParagraph
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevel1
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
End With
Selection.TypeText Text:="一级" '这句话显示异常，本没有任何缩进却缩进了。
End Sub

请在每一行 With Selection.ParagraphFormat 的后面添加以下一行：
        .Reset
将所有的段落格式清除，然后用后续的代码重新设置即可。


以下是完整的、精简后的代码：
Sub set_write_simple()
    With Selection.ParagraphFormat
        .Reset
        .OutlineLevel = wdOutlineLevel1
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
    End With
    Selection.TypeText Text:="一级"    '这句话没有缩进，正常
    Selection.TypeParagraph

    With Selection.ParagraphFormat
        .Reset
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 6
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 2
    End With
    Selection.TypeText Text:="正文"  '这句话做了段落缩进和首行缩进，正常
    Selection.TypeParagraph

    With Selection.ParagraphFormat
        .Reset
        .OutlineLevel = wdOutlineLevel1
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
    End With
    Selection.TypeText Text:="一级"   '这句话显示异常，本没有任何缩进却缩进了。
End Sub

with selection.paragraphformat .leftindent = centimeterstopoints(0) '左缩进为0 .firstlineindent = centimeterstopoints(0) '首行缩进为0 end with