Private Sub CommandButton1_Click()

Dim b As String

Dim k As Integer

Dim dl As Long

Dim Text As String

Dim Nab As Integer

Dim i As Long

Dim REZULTAT As Range

kol = 0

Nab = InputBox("Введите номер абзаца", "Подсчитаем буквы а")

k = ActiveDocument.Paragraphs.Count

If Nab > k Then

MsgBox "В тексте нет такого абзаца", 48, "Предупреждение"

End

End If

b = ActiveDocument.Paragraphs(Nab).Range

dl = Len(b)

For i = 1 To dl

If Mid(b, i, 1) = "а" Or Mid(b, i, 1) = "А" Then kol = kol + 1

Next i

MsgBox kol

Text = "Количество букв а в абзаце с номером " & Nab & " - " & kol & "."

ActiveDocument.Paragraphs(k).Range.InsertParagraphAfter

Set REZULTAT = ActiveDocument.Paragraphs(k + 1).Range

With REZULTAT

.InsertBefore Text

.Font.Name = "Arial"

.Font.Size = 14

.Font.ColorIndex = wdDarkRed

End With

End Sub