Skip to main content

Hoe maak je afhankelijke vervolgkeuzelijsten in een Word-document?

Author: Siluvia Last Modified: 2025-05-29
Example showing limiting the choices in the second drop-down list based on the selected option in the first drop-down list

Zoals in de schermafbeelding te zien is, wil je mogelijk de keuzes in de tweede vervolgkeuzelijst beperken op basis van de selectie in de eerste vervolgkeuzelijst. Dit artikel laat je zien hoe je afhankelijke vervolgkeuzelijsten maakt in een Word-document.

Maak afhankelijke vervolgkeuzelijsten in Word met VBA-code


Maak afhankelijke vervolgkeuzelijsten in Word met VBA-code

De onderstaande VBA-methode helpt je om een afhankelijke vervolgkeuzelijst te maken waarbij de tweede lijst verandert op basis van wat er in de eerste lijst is geselecteerd. Volg deze stappen:

  1. Zorg ervoor dat het tabblad "Developer" zichtbaar is in je Word lint (zo niet, zie de handleiding Hoe toon je het tabblad Developer in Word?). Voeg vervolgens twee vervolgkeuzelijsten in door te klikken op "Developer" > "Legacy Forms" > "Drop-Down Form Field" (twee keer).
    Developer tab with Legacy Forms selected and Drop-Down Form Field highlighted
  2. Klik met de rechtermuisknop op de eerste vervolgkeuzelijst (dit wordt de bovenliggende lijst) en klik op "Eigenschappen".
    First drop-down list right-clicked with Properties option selected
  3. In het dialoogvenster "Opties voor vervolgkeuzelijst":
    1. Voer de categorieën (bijvoorbeeld "Fruit", "Groente", "Vlees") één voor één in het vak "Keuze in vervolgkeuzelijst" in en klik na elke categorie op "Toevoegen".
    2. Typ "ddfood" in het vak "Bladwijzer".
    3. Klik op "OK".
      Drop-down Form Field Options dialog box
  4. Klik met de rechtermuisknop op de tweede vervolgkeuzelijst, selecteer "Eigenschappen", typ "ddCategory" in het vak "Bladwijzer" en klik op "OK".
    Drop-down Form Field Options dialog box
  5. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
  6. Klik in het VBA-venster op "Invoegen" > "Module" en plak vervolgens de volgende code:
    Sub Populateddfood()
    'Update by Extendoffice 2018/10/25
        Dim xDirection As FormField
        Dim xState As FormField
        On Error Resume Next
        Set xDirection = ActiveDocument.FormFields("ddfood")
        Set xState = ActiveDocument.FormFields("ddCategory")
        If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
        With xState.DropDown.ListEntries
            .Clear
            Select Case xDirection.Result
                Case "Fruit"
                    .Add "Apple"
                    .Add "Banana"
                    .Add "Peach"
                    .Add "Lychee"
                    .Add "Watermelon"
                Case "Vegetable"
                    .Add "Cabbage"
                    .Add "Onion"
                Case "Meat"
                    .Add "Pork"
                    .Add "Beef"
                    .Add "Mutton"
            End Select
        End With
    End Sub

    Opmerkingen:

    • Pas in de code de items onder elke "Case"-verklaring aan om ze aan je inhoud aan te passen.
    • "ddfood" en "ddCategory" moeten overeenkomen met de namen van de bladwijzers die je hebt ingevoerd in de dialoogvensters "Opties voor vervolgkeuzelijst".
  7. Sla de code op en ga terug naar je document.
  8. Klik met de rechtermuisknop opnieuw op de eerste vervolgkeuzelijst en selecteer "Eigenschappen". Typ in het dialoogvenster "Opties voor vervolgkeuzelijst" dat verschijnt, in de vervolgkeuzelijst "Exit" de macro naam "Populateddfood" en klik op "OK".
    Drop-down Form Field Options dialog box
  9. Klik op "Developer" > "Beperk bewerken".
    Restrict Editing button on the Developer tab on the ribbon
  10. In het deelvenster "Beperk bewerken":
    1. Vink "Sta alleen dit type bewerken toe in het document" aan.
    2. Selecteer "Invullen van formulieren" uit de vervolgkeuzelijst.
    3. Klik op "Ja, start met het afdwingen van bescherming".
    4. Stel in het dialoogvenster "Start met het afdwingen van bescherming" een wachtwoord in en klik op "OK".
      Restrict Editing pane and Start Enforcing Protection dialog

Nu is de afhankelijke vervolgkeuzelijst actief. Wanneer je "Fruit" selecteert in de eerste lijst, verschijnen alleen fruitopties in de tweede lijst.

Examples showing limiting the choices in the second drop-down list based on the selected option in the first drop-down list

Beste productiviteitstools voor kantoor

Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...

Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...

🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...

Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies uitproberen? Download Kutools voor Word nu! 🚀