Hoe maak ik afhankelijke vervolgkeuzelijsten in een Word-document?
Zoals de linkerschermafbeelding laat zien, moet u de keuzes in de tweede vervolgkeuzelijst beperken op basis van de optie in de eerste vervolgkeuzelijst, hoe kunt u dat doen? Dit artikel toont u een methode om afhankelijke vervolgkeuzelijsten in een Word-document te maken.
Maak afhankelijke vervolgkeuzelijsten in Word met VBA-code
De onderstaande VBA-code kan u helpen bij het maken van een afhankelijke vervolgkeuzelijst in een Word-document. Volg de instructies stap voor stap.
1. Ten eerste moet u twee vervolgkeuzelijsten in uw Word-document invoegen. Klik Ontwikkelaar > Verouderde formulieren > Vervolgkeuzelijst formulierveld. Zie screenshot:
2. Klik met de rechtermuisknop op de eerste vervolgkeuzelijst (deze vervolgkeuzelijst moet de bovenliggende lijst zijn) en klik op Eigenschappen. Zie screenshot:
3. In de opening Vervolgkeuzelijst Formulierveldopties dialoogvenster, moet u:
3.1 Voer de categorie in het Vervolgkeuzelijst in en klik op de Toevoegen knop, herhaal de handeling totdat alle categorieën zijn toegevoegd aan de Items in vervolgkeuzelijst.
3.2 Voer in ddvoedsel in de Bladwijzer doos.
3.3 Klik op de OK knop. Zie screenshot:
4. Klik met de rechtermuisknop op de tweede vervolgkeuzelijst en klik op Properties om zijn Vervolgkeuzelijst Formulierveldopties dialoogvenster en voer in het dialoogvenster ddCategorie in de Bladwijzer vak en klik op het OK knop. Zie screenshot:
5. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
6. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > module, kopieer vervolgens de VBA-code naar het modulevenster.
VBA-code: maak een afhankelijke vervolgkeuzelijst in Word
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:
1. Wijzig in de code de items in elk geval naar behoefte.
2. ddvoedsel en ddCategorie moeten overeenkomen met de bladwijzeropties die u in de bovenstaande twee hebt ingevoerd Vervolgkeuzelijst Formulierveldopties dialoogvensters.
7. Sla de code op en ga terug naar het document.
8. Klik met de rechtermuisknop op de eerste vervolgkeuzelijst en klik op Properties om de te openen Vervolgkeuzelijst Formulierveldopties dialoog venster. Selecteer in het dialoogvenster de bovenstaande macronaam (hier is Popolateddfood) uit het afrit vervolgkeuzelijst en klik vervolgens op het OK knop.
9. Klik nu Ontwikkelaar > Beperken bewerken zoals hieronder getoond screenshot.
10. In de Beperken bewerken paneel, moet u:
10.1) Controleer het Sta alleen dit type bewerking toe in het document doos;
10.2) Selecteer Formulieren invullen optie uit de vervolgkeuzelijst;
10.3) Klik op de Ja, Start Enforcing Protection knop;
10.4) In de Begin met het afdwingen van bescherming Voer het wachtwoord in en klik op het OK knop. Zie screenshot:
Nu wordt een afhankelijke vervolgkeuzelijst gemaakt. Bij het selecteren van Fruit in de eerste vervolgkeuzelijst, kunnen alleen de fruitcategorieën worden geselecteerd in de tweede.
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...