Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Long, StrDetails As String
With ContentControl
  If .Title = "Client" Then
    For i = 1 To .DropdownListEntries.Count
      If .DropdownListEntries(i).Text = .Range.Text Then
        Select Case i
          Case 1
            StrDetails = "On the Insert tab, the galleries include items that are designed to coordinate with " & _
              "the overall look of your document. You can use these galleries to insert tables, headers, " & _
              "footers, lists, cover pages, and other document building blocks."
          Case 2
            StrDetails = "When you create pictures, charts, or diagrams, they also coordinate with your current " & _
              "document look. You can easily change the formatting of selected text in the document text by " & _
              "choosing a look for the selected text from the Quick Styles gallery on the Home tab." & Chr(11) & "You " & _
              "can also format text directly by using the other controls on the Home tab. Most controls offer a " & _
              "choice of using the look from the current theme or using a format that you specify directly."
          Case 3
            StrDetails = "To change the overall look of your document, choose new Theme elements on the Page Layout " & _
              "tab. To change the looks available in the Quick Style gallery, use the Change Current Quick Style Set " & _
              "command. Both the Themes gallery and the Quick Styles gallery provide reset commands so that you can " & _
              "always restore the look of your document to the original contained in your current template."
          Case Else: StrDetails = " "
        End Select
      End If
    Next
    ActiveDocument.ContentControls(2).Range.Text = StrDetails
  End If
End With
End Sub