KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe maakt u een dynamische lijst in een Word-document?

AuteurSiluvia Wijzigingsdatum
Voorbeeld dat laat zien hoe de keuzes in de tweede vervolgkeuzelijst worden beperkt op basis van de geselecteerde optie in de eerste vervolgkeuzelijst

Zoals u op de schermafbeelding ziet, wilt u de keuzemogelijkheden in de tweede keuzelijst mogelijk beperken op basis van de selectie in de eerste keuzelijst. In dit artikel leest u hoe u een dynamische lijst maakt in een Word-document.

Maak Dynamische lijst in Word met VBA-code

Maak Dynamische lijst in Word met VBA-code

Met de onderstaande VBA-methode kunt u een dynamische lijst maken waarbij de tweede lijst automatisch aanpast op basis van uw keuze in de eerste lijst. Volg deze stappen:

  1. Zorg dat het tabblad „Ontwikkelaar” zichtbaar is in het lint van Word (als dat niet het geval is, raadpleeg dan de handleiding)Hoe laat u het tabblad Ontwikkelaar zien in Word?). Voeg daarna twee keuzelijsten in door tweemaal te klikken op „Ontwikkelaar” > „Oude formulieren” > „Vervolgkeuzelijstformulier”.
    Tabblad Ontwikkelaar met Oude formulieren geselecteerd en Vervolgkeuzelijstformulierveld gemarkeerd
  2. Klik met de rechtermuisknop op de eerste vervolgkeuzelijst (deze fungeert als bovenliggende lijst) en selecteer ‘Eigenschappen’.
    Eerste vervolgkeuzelijst met rechtermuisklik en de optie Eigenschappen geselecteerd
  3. In het dialoogvenster „Opties voor vervolgkeuzelijstformulier”:
    1. Voer de categorieën (bijvoorbeeld ‘Fruit’, ‘Groente’, ‘Vlees’) één voor één in het veld ‘Keuzelijstitem’ in en klik na elk item op ‘Toevoegen’.
    2. Typ „ddfood” in het veld „Bladwijzer”.
    3. Klik op 'OK'.
      Dialoogvenster Opties voor vervolgkeuzelijstformulierveld
  4. Klik met de rechtermuisknop op de tweede Keuzelijst, selecteer „Eigenschappen”, typ „ddCategory” in het vak „Bladwijzer” en klik op „OK”.
    Dialoogvenster Opties voor vervolgkeuzelijstformulierveld
  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 aan onder elke "Case"-instructie aan uw inhoud aan.
    • "ddfood„ en "ddCategory„ moeten overeenkomen met de bladwijzernaam die u hebt ingevoerd in de dialoogvensters "Opties voor vervolgkeuzelijstformulier".
  7. Sla de code op en keer terug naar uw document.
  8. Klik opnieuw met de rechtermuisknop op de eerste keuzelijst en selecteer „Eigenschappen”. Selecteer in het dialoogvenster „Opties voor vervolgkeuzelijstformulier” dat verschijnt, bij de vervolgkeuzelijst „Afsluiten” de macro-naam „Populateddfood” en klik op „OK”.
    Dialoogvenster Opties voor vervolgkeuzelijstformulierveld
  9. Klik op 'Ontwikkelaar' > 'Beperkt bewerken'.
    Knop Bewerken beperken op het tabblad Ontwikkelaar op het lint
  10. In het deelvenster „Bewerken beperken”:
    1. Schakel de optie „Alleen dit type bewerking toestaan in het document” in.
    2. Selecteer 'Formulieren invullen' in de keuzelijst.
    3. Klik op „Ja, beveiliging afdwingen”.
    4. Stel in het dialoogvenster „Beveiliging afdwingen” een wachtwoord in en klik op „OK”.
      Deelvenster Bewerken beperken en dialoogvenster Beveiliging afdwingen starten

De dynamische lijst is nu actief: wanneer u ‘Fruit’ selecteert in de eerste lijst, verschijnen in de tweede lijst alleen nog fruitopties.

Voorbeelden die laten zien hoe de keuzes in de tweede vervolgkeuzelijst worden beperkt op basis van de geselecteerde optie in de eerste vervolgkeuzelijst

Beste kantoorproductiviteitstools

Kutools voor Word – Verrijk uw Word-ervaring met meer dan 100 opmerkelijke functies!

🤖KUTOOLS AI-functies: AI-assistent / Realtime-assistent / Super Polish (opmaak behouden) / Super Vertalen (opmaak behouden) / AI-redactie / AI-proeflezen...

📘Documentbeheer: Pagina's splitsen, documenten samenvoegen, selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML…), batchconversie naar PDF…

✏Inhoudsbewerking: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen herschalen / Tabel transponeren: rijen en kolommen omwisselen / Tabel naar tekst converteren...

🧹Moeiteloos opschonen: Veeg overbodige spaties, sectie-einden, tekstvakken en hyperlinks weg. Ga voor nog meer verwijderopties naar de Verwijderen-groep...

➕Creatieve invoegingen: Voeg duizendtalscheidingstekens, selectievakjes, keuzerondjes, QR-codes, streepjescodes en meerdere afbeeldingen in. Ontdek meer in de Invoegen-groep...

🔍Precieze selecties: Selecteer nauwkeurig specifieke pagina's, tabellen, vormen en kopteksten. Verbeter je navigatie met de meer-functies Selecteren…

⭐Sterverhogingen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Schakelen tussen documentvensters / 11 conversietools Conversie...

🌍Ondersteunt 40+ talen: Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Kutools for Word tabbladen op het lint
 
 

Office Tab– Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoog uw productiviteit met 50 % en bespaar dagelijks honderden muisklikken!

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Bevat Office Tab Pro·Kutools voor Excel·Kutools voor Outlook·Kutools voor Word·Kutools for PowerPoint

📦 Ontvang alle 5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Tijd besparen en verhoog direct uw productiviteit

Beste kantoorproductiviteitstools

Kutools voor Word– 100+ Tools voor Word

Gratis downloadenNu kopenMeer informatie over Kutools