Microsoft Office Forums - View Single Post - [Solved] Multiple entries in dropdown lists with building blocks

gmayor · 04-04-2020, 05:24 AM

With regard to your template, your code is

Code:

Case Is = "Zomer/winter"
                If .ShowingPlaceholderText = True Then
                    Set oCC = ActiveDocument.SelectContentControlsByTitle("WinterTekst").Item(1)
                    oCC.LockContentControl = True
                    oCC.Range.Text = ""
                Else
                    For i = 1 To .DropdownListEntries.Count
                        If .DropdownListEntries(i).Text = .Range.Text Then
                            Select Case .DropdownListEntries(i).Text
                                Case "Kies een item."
                                    AutoTextToCC "WinterTekst", ActiveDocument.AttachedTemplate, "TipKeuze"
                                Case "Enkel in de winter"
                                    AutoTextToCC "WinterTekst", ActiveDocument.AttachedTemplate, "PrimerAnhydriet"
                                Case "Niet in de zomer"
                                    AutoTextToCC "WinterTekst", ActiveDocument.AttachedTemplate, "TipZomer"
                            End Select
                            Exit For
                        End If
                    Next
                 End If

There is no "PrimerAnhydriet" building block, so that one is never going to work, and Case "Kies een item." is superfluous as that is the placeholder text and always produces nothing because of the other half of the IF statement.