Thank you Greg for your guidance I am still struggling and have attached the letter I am trying to construct using the code shown below. There are 5 drop down list box controls in the English text and 5 rich text controls in the French text.
The VB code used is shown below:
Quote:
Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim lngIndex As Long, strDetails As String
With CC
Select Case .Title
Case "condition"
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("condi tionFR").Item(1).Range.Text = strDetails
Case "condition"
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("locat ion").Item(1).Range.Text = strDetails
Next
ActiveDocument.SelectContentControlsByTitle("sewer age").Item(1).Range.Text = strDetails
Next
ActiveDocument.SelectContentControlsByTitle("servi ces").Item(1).Range.Text = strDetailsservices
Next
ActiveDocument.SelectContentControlsByTitle("comms ").Item(1).Range.Text = strDetails
End Select
End With
End Sub
|
Any suggestions as to where I am going wrong? I am thinking that the drop down list control needs to be linked to the rich text control but I haven't got a clue where to start!
Thank you again for your help and patience.
Gordon Hayward