Количество слов на английском

Sub EngWordsCnt()
    Dim w As Range, L As Long
    With CreateObject("VBScript.Regexp")
        .IgnoreCase = True
        .Pattern = "[a-z]+"
        For Each w In ActiveDocument.Words
            If .test(w) Then L = L + 1
        Next
    End With
    MsgBox L
End Sub

Sub EnglishWordsCount()
    Dim oWord, T$, S$
    For Each oWord In ActiveDocument.Range.Words
        Select Case oWord.LanguageID
            Case msoLanguageIDEnglishAUS, msoLanguageIDEnglishBelize, msoLanguageIDEnglishCanadian, msoLanguageIDEnglishCaribbean, msoLanguageIDEnglishIndonesia, msoLanguageIDEnglishIreland, msoLanguageIDEnglishJamaica, msoLanguageIDEnglishNewZealand, msoLanguageIDEnglishPhilippines, msoLanguageIDEnglishSouthAfrica, msoLanguageIDEnglishTrinidadTobago, msoLanguageIDEnglishUK, msoLanguageIDEnglishUS, msoLanguageIDEnglishZimbabwe
                S = oWord.Text
                ClearPunctuation S
                If T <> "" And S <> "" Then T = T & "|"
                If S <> "" Then T = T & S
        End Select
    Next
   MsgBox "Число английских слов: " & (UBound(Split(T, "|")) + 1)
End Sub
Sub ClearPunctuation(T)
    T = Replace(T, ".", "")
    T = Replace(T, ",", "")
    T = Replace(T, ";", "")
    T = Replace(T, ":", "")
    T = Replace(T, "»", "")
    T = Replace(T, "«", "")
    T = Replace(T, "–", "")
    T = Replace(T, "+", "")
    T = Replace(T, "№", "")
    T = Replace(T, Chr$(10), "")
    T = Replace(T, Chr$(13), "")
    T = Replace(T, Chr$(160), "")
    T = Replace(T, "(", "")
    T = Replace(T, ")", "")
    T = Replace(T, """", "")
End Sub