About Word Macro fill font color !

[danial]

Sawasdee,

I create code in MsWord for fill font color to any strings is equal english font

Sub BlueEng()
St = Time
Selection.WholeStory
Dim TxNo As Integer
For K = 1 To Selection.Characters.Count
    TxNo = Asc(Selection.Characters(K))
        If TxNo > 64 And TxNo < 123 Then 
        Selection.Characters(K).Font.Color = wdColorBlue 
    End If
Next
MsgBox St & " - " & Time
End Sub

but it's slowly, very slow
anyone who have any way for me reduce time

Tnx in adv.