Hi Terry,

This should do:

Sub CapAndColourChords()
   Dim oRg As Range
   Set oRg = ActiveDocument.Range
   With oRg.Find
       .ClearFormatting
       .Text = "\[([! ]@)\]"
       .Forward = True
       .Wrap = wdFindStop
       .Format = False
       .MatchWildcards = True
       Do While .Execute
           oRg.MoveStart wdCharacter, 1
           oRg.MoveEnd wdCharacter, -1
           oRg.Font.Color = wdColorBlue
           oRg.Characters.First = UCase(oRg.Characters.First)
           ' prepare for next search
           oRg.Collapse wdCollapseEnd
       Loop
   End With
End Sub

For installing the macro, see
http://www.gmayor.com/installing_macro.htm. For understanding how
wildcard searches work, see
http://www.gmayor.com/replace_using_wildcards.htm.

--
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.