Макрос изменения цвета заглавных букв в тексте

Как написать макрос, который бы в выделенной области менял цвет всех заглавных букв текста на красный, а строчных на черный.

Вот небольшой макрос, который решает этот вопрос:

Sub colorCase3()
'Применение к первым заглавным буквам красного цвета, а к строчным - черного цвета
Dim fChar As Range
Dim selText As Range
Set selText = Selection.Range
If Selection.Type = wdSelectionIP Then
   MsgBox "Не выделен текст"
Else
   For Each fChar In selText.Words
      fChar.Font.Color = wdColorBlack
         If fChar.Characters.First Like "[A-ЯA-Z]" Then
            fChar.Characters.First.Font.Color = wdColorRed
         End If
   Next fChar
End If
End Sub

Выделите текст и примените этот макрос.

Вопрос: а если нужно применить цвет ко всем найденным в выделенном тексте заглавным буквам (даже внутри слова), какой код макроса должен быть в этом случае?