[zena]

Спасибо, я уже давно ничего не жду. Сама давно всё сделала:

Код:

Sub P1()
'Первый вопрос.
Dim MaxКоличество As Long
Dim MaxНомер As Long
Dim i As Long
With ActiveDocument
    MaxКоличество = .Paragraphs(1).Range.Sentences.Count
    MaxНомер = 1
    For i = 1 To .Paragraphs.Count
        If .Paragraphs(i).Range.Sentences.Count > MaxКоличество Then
            MaxКоличество = .Paragraphs(i).Range.Sentences.Count
            MaxНомер = i
        End If
    Next i
    With .Paragraphs(MaxНомер).Range.Font
        .Italic = True
        .Color = wdColorRed
    End With
    .Content.InsertParagraphAfter
    .Range(Start:=.Range.End - 1, End:=.Range.End - 1).Text = _
        .ComputeStatistics(wdStatisticParagraphs)
    .Content.InsertParagraphAfter
    .Range(Start:=.Range.End - 1, End:=.Range.End - 1).Text = MaxНомер
End With
End Sub

Код:

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

Код:

Sub P3()
'Третий вопрос
Dim i As Long
Dim MaxКол As Long
Dim MaxНомер As Long
With ActiveDocument
    MaxКол = .Words(1).Characters.Count
    MaxНомер = 1
    For i = 2 To .Words.Count
        If .Words(i).Characters.Count > MaxКол Then
            MaxКол = .Words(i).Characters.Count
            MaxНомер = i
        End If
    Next i
    .Range(Start:=.Words(MaxНомер).Sentences(1).Start, End:=.Words(MaxНомер).Sentences(1).End).Copy
    .Content.InsertParagraphBefore
    .Range(Start:=0, End:=0).Paste
End With
End Sub