Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
With CCtrl
  Select Case .Type
    Case wdContentControlText, wdContentControlRichText, wdContentControlComboBox
      If Not CCtrl.ShowingPlaceholderText Then
        .Range.Case = wdTitleSentence
      End If
    Case Else
  End Select
End With
End Sub