Case wdContentControlText, wdContentControlRichText, wdContentControlComboBox On Error Resume Next .Range.Characters.First = UCase(.Range.Characters.First)