Option Explicit

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Integer
Dim strDetails As String
    With ActiveDocument
        'Use the Select Case only if employing  Custom Document Properties
        Select Case ContentControl.Title
            Case "Sbjct": .CustomDocumentProperties("Sbjct").Value = ContentControl.Range.Text
            Case "Stmnt": .CustomDocumentProperties("Stmnt").Value = ContentControl.Range.Text
            Case "Dsclr": .CustomDocumentProperties("Dsclr").Value = ContentControl.Range.Text
            Case "MjTpc": .CustomDocumentProperties("MjTpc").Value = ContentControl.Range.Text
            Case "ClientA"
                For i = 1 To ContentControl.DropdownListEntries.Count
                    If ContentControl.DropdownListEntries(i).Text = ContentControl.Range.Text Then
                        strDetails = Replace(ContentControl.DropdownListEntries(i).Value, "|", Chr(11))
                        Exit For
                    End If
                Next
                With ActiveDocument.SelectContentControlsByTitle("ClientDetailsA")(1)
                    .LockContents = False
                    .Range.Text = strDetails
                    .LockContents = True
                End With
            Case "ClientB"
                For i = 1 To ContentControl.DropdownListEntries.Count
                    If ContentControl.DropdownListEntries(i).Text = ContentControl.Range.Text Then
                        strDetails = Replace(ContentControl.DropdownListEntries(i).Value, "|", Chr(11))
                        Exit For
                    End If
                Next
                With ActiveDocument.SelectContentControlsByTitle("ClientDetailsB")(1)
                    .LockContents = False
                    .Range.Text = strDetails
                    .LockContents = True
                End With
        End Select
        .Fields.Update
    End With
End Sub