Как подсчитать количество букв?

[Sasha_Smirnov]

Sub RusLettersEngLetters() 'подсчёт и сегрегация символов в активном документе Word
Const ta = vbTab & vbTab, pa = vbCr & vbCr
Dim ch, rus As Long, eng As Long, oth As Long, all As Long, t As Single: t = Timer

For Each ch In ActiveDocument.Characters
'    If ch Like "[А-яЁё]" Then rus = rus + 1      'счётчик русских букв
'    If ch Like "[A-Za-z]" Then eng = eng + 1     'счётчик нерусских букв
'    If ch Like "[!A-zА-яЁё]" Then oth = oth + 1  'счётчик прочих знаков текста документа
    Select Case True
        Case ch Like "[А-яЁё]": rus = rus + 1   'счётчик русских букв
        Case ch Like "[A-Za-z]": eng = eng + 1  'счётчик нерусских букв
        Case Else: oth = oth + 1 'счётчик прочих знаков текста документа
    End Select
Next

all = ActiveDocument.ComputeStatistics(wdStatisticCharactersWithSpaces): t = Timer - t

MsgBox "Итак, в тексте " & ActiveDocument & ":" & pa & _
    "• русских букв:" & ta & ta & Format(rus, "#,#") & vbCr & _
    "• английских букв:" & ta & ta & Format(eng, "#,#") & vbCr & _
    "• всего русских и английских букв:" & ta & Format(rus + eng, "#,#") & vbCr & _
    "• прочих символов:" & String(3, Chr(9)) & Format(oth, "#,#") & pa & _
    "Всего символов по статистике Word:" & ta & Format(all, "#,#") & pa & _
"Время подсчёта, с: " & ta & Format(t, "#,##0.0") & "," & vbCr & "что составило " & _
    Format(t / all, "0.000 000") & " с/символ"
End Sub

Сообщение от Stilet

Хы... Правда скорость не измерял...

А я вот измерил — c if’ами (что выше закомментировал) и с case’ами: