Muliple entries in Multiple dropdown lists

gmaxey · #1 03-31-2019, 08:40 AM

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.

Haygordon · #2 04-02-2019, 09:44 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Multiple entries in dropdown lists	paul_pearson	Word VBA	151	10-18-2023 04:23 PM
Help with Dropdown Lists	Gerardo G	Word VBA	1	06-18-2015 11:10 PM
Dropdown Lists in Excel 2010	janehoss	Excel	0	12-01-2014 07:16 AM
VBA Dropdown change list Entries automatically	QA_Compliance_Advisor	Word VBA	20	09-16-2014 07:29 AM
Word Forms : Dropdown lists	wferaera45	Word	0	04-06-2006 03:02 AM