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 ddfood 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 Vastgoed 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 SubOpmerkingen:
1. Wijzig in de code de items in elk geval naar behoefte.
2. ddfood 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 Vastgoed 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.
Aanbevolen Word-productiviteitstools
Kutools For Word - Meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd
- Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
- Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
- Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
- Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
- Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
