First, you're getting only the first characters of sentences because
that's what you asked for in "For Each fChar In selText.Sentences". If
you want to check every word in the selection, you need to say "For
Each fChar In selText.Words".

Second, you didn't do anything to make sure you're recoloring only the
upper case letters -- after you start looking at words instead of
sentences, you would have seen that you're recoloring the first letter
of every word, regardless of its case. There are several ways to fix
this, but the easiest is an If statement that uses the Like operator,
as in this example:

Sub colorCase()
Dim fChar As Range
Dim selText As Range
Set selText = Selection.Range
If Selection.Type = wdSelectionIP Then
  MsgBox "Don't selection of text"
Else
  For Each fChar In selText.Words
     If fChar.Characters.First Like "[A-Z]" Then
       fChar.Characters.First.Font.Color = wdColorRed
     End If
  Next fChar
End If
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP        FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit.