Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim oTbl As Table
Dim i As Long
Dim StrDetails() As String
With ContentControl
  If .Title = "Client Contact" Then
    Set oTbl = ContentControl.Range.Tables(1)
    If Not ContentControl.ShowingPlaceholderText Then
      For i = 1 To .DropdownListEntries.Count
        If .DropdownListEntries(i).Text = .Range.Text Then
          StrDetails = Split(.DropdownListEntries(i).Value, "|")
          oTbl.Cell(3, 4).Range.Text = StrDetails(0)
          oTbl.Cell(4, 4).Range.Text = StrDetails(1)
          Exit For
        End If
      Next
    Else
      oTbl.Cell(3, 4).Range.Text = vbNullString
      oTbl.Cell(4, 4).Range.Text = vbNullString
    End If
  End If
End With
End Sub