That link only shows one of numerous ways to 'skin the cat'. Another approach would be to embed the output text in the macro itself. For example:
Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim StrDetails As String
With ContentControl
If .Title = "Client" Then
Select Case .Range.Text
Case "Roundhouse Nurseries"
StrDetails = "Phone: 08 1111 1111" & vbCr & _
"Fax: 08 2222 2222" & vbCr & _
"Email: sales@roundhousenurseries.com.au"
Case "Smiths Wholesales"
StrDetails = "Phone: 08 3333 3333" & vbCr & _
"Fax: 08 4444 4444" & vbCr & _
"Email: sales@smithswholesales.com.au"
Case Else: StrDetails = ""
End Select
ActiveDocument.ContentControls(2).Range.Text = StrDetails
End If
End With
End Sub