Отладка программ

Sub P1()
Dim i As Long
Dim НомерАбзаца As Long
Dim КоличествоПредложений As Long
НомерАбзаца = 1
With ActiveDocument
    КоличествоПредложений = .Paragraphs(1).Range.Sentences.Count
    For i = 2 To .Paragraphs.Count
        If .Paragraphs(i).Range.Sentences.Count > КоличествоПредложений Then
            НомерАбзаца = i
            КоличествоПредложений = .Paragraphs(i).Range.Sentences.Count
        End If
    Next i
    With .Paragraphs(НомерАбзаца).Range.Font
        .Color = wdColorRed
        .Italic = True
    End With
    .Content.InsertParagraphAfter
    .Range(Start:=.Range.End - 1, End:=.Range.End - 1).Text = .Paragraphs.Count - 1
    .Content.InsertParagraphAfter
    .Range(Start:=.Range.End - 1, End:=.Range.End - 1).Text = НомерАбзаца
End With
End Sub

Sub P2()
Dim i As Long
Dim Подсчёт As Long
With ActiveDocument
    If .Paragraphs.Count < 4 Then
        MsgBox "В документе меньше 4 абзацев; программа будет завершена", vbCritical
        Exit Sub
    End If
    For i = 1 To .Paragraphs(4).Range.Words.Count - 1
        If Left(Trim(.Paragraphs(4).Range.Words(i)), 1) = _
                Right(Trim(.Paragraphs(4).Range.Words(i)), 1) Then
            Подсчёт = Подсчёт + 1
        End If
    Next i
End With
MsgBox "Количество слов в 4 абзаце, начинающихся и заканчивающихся на одну и ту же букву: " & _
    Подсчёт
End Sub

Sub P3()
Dim i As Long
Dim НомерСлова As Long
Dim ДлинаСлова As Long
НомерСлова = 1
With ActiveDocument
    ДлинаСлова = .Words(1).Characters.Count
    For i = 2 To .Words.Count
        If .Words(i).Characters.Count > ДлинаСлова Then
            НомерСлова = i
            ДлинаСлова = .Words(i).Characters.Count
        End If
    Next i
    .Words(НомерСлова).Sentences(1).Copy
    .Content.InsertParagraphBefore
    .Range(Start:=0, End:=0).Paste
End With
End Sub