[@Фазли]

Visual Basic

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Dim St As String, Stl As String Dim P As String * 10, Sym As String * 1 Dim KR As Long, KN As Long, i As Long P = "аеёиоуыэюя" KN = 0 KR = 0 St = Selection.Text If Len(St) = 1 Then ' Если не выделен фрагмент текста MsgBox "Необходимо выделить фрагмент текста" Exit Sub End If For i = 1 To Len(St) Sym = Mid(St, i, 1)      ' выделить очередной символ ' Если символ не является латинской буквой ' или воклицательным знаком If Not (Sym >= "A" And Sym <= "z") And Sym <> "!" Then If InStr(1, P, Sym) > 0 Then KR = KR + 1 If Sym >= "0" And Sym <= "9" Then KN = KN + 1 Stl = Stl & Sym End If Next i  Selection.Text = St & vbNewLine & "Колличество русских гласных букв равно" & KR & vbNewLine & "Количество цифр равно " & KN & vbNewLine & vbNewLine & _  "Преобразованный текст:" & vbNewLine & Stl  End Sub

[Остап Бонд]

Убрать все лишние пробелы между словами (оставить только по одному пробелу)

Visual Basic
1 2 3 4 st = Selection.Text While InStr(1, st, "  ")   st = Replace(st, "  ", " ") Wend