Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
  Dim aPara As Paragraph
  With CCtrl
    Select Case .Type
      Case wdContentControlText, wdContentControlRichText, wdContentControlComboBox
        On Error Resume Next
        For Each aPara In .Range.Paragraphs
          aPara.Range.Characters.First = UCase(aPara.Range.Characters.First)
        Next aPara
        Case Else
    End Select
  End With
End Sub