取消首行缩进2字符，统一替换为无

晨晓之黎

大家好！能不能帮我写Word VBA，首行缩进2字符统一替换为无，谢谢！有附件文件

limonet

Sub limonet()
    Dim P As Paragraph
    For Each P In ActiveDocument.Paragraphs
        If P.CharacterUnitFirstLineIndent = 2 Then
            P.CharacterUnitFirstLineIndent = 0
            P.FirstLineIndent = CentimetersToPoints(0)
        End If
    Next P
End Sub

limonet

关键字：FirstLineIndent