Sub FormatAllLetters()
With ActiveDocument.Range.Find
  .ClearFormatting
  .Text = "Answers \([A-C]\)"
  With .Replacement
    .ClearFormatting
    .Font.Bold = True
    .Font.Color = 12611584
    .Text = "^&"
  End With
  .Forward = True
  .Wrap = wdFindContinue
  .MatchWildcards = True
  .Execute Replace:=wdReplaceAll
End With
End Sub