Автоматизация проверки правильности выполнения задания

Sub FormatDocument()
    Application.ScreenUpdating = False
    With ActiveDocument.Range
        With .Font
            .Name = "Times New Roman"
            .Size = 14
        End With
        With .ParagraphFormat
            .Alignment = wdAlignParagraphJustify
            .SpaceBefore = 0
            .SpaceAfter = 0
            .LineSpacingRule = wdLineSpace1pt5
        End With
    End With
    Application.ScreenUpdating = True
End Sub

Sub FormatDocument()
    Dim i As Long, s As String, ok As Boolean
    Application.ScreenUpdating = False
    For i = 1 To ActiveDocument.Paragraphs.Count
        With ActiveDocument.Paragraphs(i).Range
            With .Font
                ok = .Name = "Times New Roman" And .Size = 14
            End With
            With .ParagraphFormat
                ok = ok And .Alignment = wdAlignParagraphJustify And .SpaceBefore = 0 _
                And .SpaceAfter = 0 And .LineSpacingRule = wdLineSpace1pt5
            End With
        End With
        If Not ok Then If s = "" Then s = Str(i) Else s = s & ", " & Str(i)
    Next
    Application.ScreenUpdating = True
    MsgBox "Абзацы " & s & " сожержат ошибки"
End Sub