'Or something' is what you'll need, yes.

Josha was telling us:
Josha nous racontait que :

AS others have said, this is easier said than done. Since you seem you
really want to do this, here is some code that will get you started. Be
warned that there are many problems ahead: Just to state one: How to deal
with compound words that needs to be capitalized (Dominican Republic)?

Also, dealing with characters in a document makes for code that is really
slow... you may want to change the approach for words, but it will still be
slow...

It would be better to find a way to do this with Find/Replace.

'_______________________________________
Dim pChar As Range
Dim rgeTemp As Range
Dim lngRgeStart As Long
Dim lngRgeEnd As Long
Dim boolFoundCaps As Boolean

lngCharCount = ActiveDocument.Characters.Count
boolFoundCaps = False

For Each pChar In ActiveDocument.Characters
   If pChar Like "[A-Z]" Then
       If Not boolFoundCaps Then
           lngRgeStart = pChar.Start
           boolFoundCaps = True
       End If
   Else
       If boolFoundCaps Then
           lngRgeEnd = pChar.Start
           boolFoundCaps = False
           Set rgeTemp = ActiveDocument.Range(lngRgeStart, lngRgeEnd)
           If rgeTemp.Characters.Count <> 1 Then
               If Not rgeTemp.Text Like "BP" And _
                   Not rgeTemp.Text Like "MT" And _
                   Not rgeTemp.Text Like "RS" Then
                   rgeTemp.Case = wdLowerCase
               End If
           End If
       End If
   End If
Next
'_______________________________________