Sub ФиксГОСТ()

    For Each P In Selection.Paragraphs
    With P
        Dim LL As Long

        If .Range.ListFormat.ListType = 0 Then
            LL = 0
        Else
            LL = P.Range.ListFormat.ListLevelNumber
        End If

        If .Alignment <> wdAlignParagraphCenter Then
            .Alignment = wdAlignParagraphJustify
        End If

        If LL = 0 Then
            If (.Alignment <> wdAlignParagraphCenter And (Not .Range.Words(1).Font.Bold)) Then
                .FirstLineIndent = CentimetersToPoints(1.25)
            Else
                .FirstLineIndent = 0
            End If
            .LeftIndent = 0
        Else
            .FirstLineIndent = 0
            .LeftIndent = CentimetersToPoints(1.25) * LL
        End If

        .LineSpacing = LinesToPoints(1.5)
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .SpaceAfter = 0
        .SpaceBefore = 0
        .RightIndent = 0
        .TabStops.ClearAll

        Debug.Print LL

    End With
    Next P
End Sub