Muliple entries in Multiple dropdown lists

gmaxey · #1 04-03-2019, 01:05 PM

You are making this much more difficult than in needs to b Gordon.

Code:

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim lngIndex As Long
  With CC
    Select Case .Title
      Case "condition"
        For lngIndex = 1 To .DropdownListEntries.Count
          If .DropdownListEntries(lngIndex).Text = .Range.Text Then
            ActiveDocument.SelectContentControlsByTitle("conditionFR").Item(1).Range.Text = .DropdownListEntries(lngIndex).Value
            Exit For
          End If
        Next lngIndex
      Case "location"
        For lngIndex = 1 To .DropdownListEntries.Count
          If .DropdownListEntries(lngIndex).Text = .Range.Text Then
            ActiveDocument.SelectContentControlsByTitle("locationFR").Item(1).Range.Text = .DropdownListEntries(lngIndex).Value
            Exit For
          End If
        Next lngIndex
      Case "The next one"
    End Select
  End With
End Sub

Haygordon · #2 04-04-2019, 05:32 AM

I bow before a man with far superior logic and coding skills that I will ever possess and must say a huge than you for all his skill and patience with someone who knows what
he needs to do but lacks the training to do it. With this code I can update a book I wrote in 2006 to a PC based series of 200+ letters for English speakers living in France.

Any chance of anyone organizing a VBA training course for the over 75's!

Thanks again,

Gordon Hayward

(well it would be a big grin if all the teeth were there....)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Multiple entries in dropdown lists	paul_pearson	Word VBA	154	11-08-2025 03:51 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