Not sure what you are trying to do but as far as the Client Contact CC you do have, then something like this:
Code:
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