I'm assuming you are referring to Paul's file posted back at the start of that thread.
There Paul uses a content control titled "Client" and another titled "ClientDetails." However, as the document contains only two CCs, he didn't use the title of the second in his code.
The CC used for the list of clients is a Content Control dropdown list. The one used to display the associated details can be a plain or rich text control.
The code goes in the ThisDocument module of the VB Project and can be modified as follows to add additional pairs:
Code:
Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim lngIndex As Long, strDetails As String
With CC
Select Case .Title
Case "Client"
For lngIndex = 1 To .DropdownListEntries.Count
If .DropdownListEntries(lngIndex).Text = .Range.Text Then
strDetails = Replace(.DropdownListEntries(lngIndex).Value, "|", Chr(11))
Exit For
End If
Next
ActiveDocument.SelectContentControlsByTitle("ClientDetails").Item(1).Range.Text = strDetails
Case "Dogs"
For lngIndex = 1 To .DropdownListEntries.Count
If .DropdownListEntries(lngIndex).Text = .Range.Text Then
strDetails = Replace(.DropdownListEntries(lngIndex).Value, "|", Chr(11))
Exit For
End If
Next
ActiveDocument.SelectContentControlsByTitle("DogDetails").Item(1).Range.Text = strDetails
End Select
End With
End Sub
So lets assume you want to add a pair that deals with dogs and their characteristics.
Insert a dropdown CC and title it "Dogs" as you add the type of dogs to the list, put the breed in the Display as Field and the characteristics in the Value fields each separated using "|"
Eg:
Display As Value
Beagle Friendly|Loyal|Playful
Pug Ugly|flat faced
Insert the plain text CC and title is DogDetails.