Salt la conținutul principal

Cum se creează liste drop-down dependente în documentul Word?

Autor: Siluvia Ultima modificare: 2022-05-20


După cum se arată în captura de ecran din stânga, trebuie să limitați opțiunile din a doua listă drop-down pe baza opțiunii din primul drop-down, cum puteți face? Acest articol vă va arăta o metodă de a crea liste derulante dependente într-un document Word.

Creați liste derulante dependente în Word cu cod VBA


Creați liste derulante dependente în Word cu cod VBA

Codul VBA de mai jos vă poate ajuta să creați o listă derulantă dependentă într-un document Word. Vă rugăm să urmați instrucțiunile pas cu pas.

1. În primul rând, trebuie să inserați două liste derulante în documentul dvs. Word. Clic Dezvoltator > Formulare vechi > Câmp de formular drop-down. Vedeți captura de ecran:

2. Faceți clic dreapta pe prima listă derulantă (această listă derulantă ar trebui să fie cea părinte) și faceți clic pe Proprietăți. Vedeți captura de ecran:

3. În deschidere Opțiuni derulante pentru câmpul formularului casetă de dialog, trebuie să:

3.1 Introduceți categoria în Element drop-down apoi faceți clic pe Adăuga butonul, repetați operația până când toate categoriile sunt adăugate la caseta de listă derulantă Articole din.

3.2 Introduceți ddfood în semn de carte cutie.

3.3 Faceți clic pe OK buton. Vedeți captura de ecran:

4. Faceți clic dreapta pe a doua listă derulantă, faceți clic pe Proprietăţi să-i deschidă Opțiuni derulante pentru câmpul formularului casetă de dialog și, în dialog, introduceți ddCategorie în semn de carte și faceți clic pe OK buton. Vedeți captura de ecran:

5. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

6. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Modul, apoi copiați mai jos codul VBA în fereastra Module.

Cod VBA: creați o listă verticală dependentă în 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

note:

1. În cod, vă rugăm să schimbați articolele din fiecare caz după cum aveți nevoie.

2. ddfood și ddCategorie ar trebui să corespundă opțiunilor de marcaj introduse în cele două de mai sus Opțiuni derulante pentru câmpul formularului casete de dialog.

7. Salvați codul și reveniți la document.

8. Faceți clic dreapta pe prima listă derulantă și faceți clic pe Proprietăţi pentru a deschide Opțiuni derulante pentru câmpul formularului căsuță de dialog. În caseta de dialog, selectați numele macro de mai sus (aici este Popolateddfood) din Ieşire lista verticală, apoi faceți clic pe OK butonul.

9. Acum faceți clic pe Dezvoltator > Restricționați editarea după cum se arată în imaginea de mai jos.

10. În Restricționați editarea , trebuie să:

10.1) Verificați Permiteți doar acest tip de editare în document cutie;

10.2) Selectați Completarea formularelor opțiune din lista derulantă;

10.3) Faceți clic pe Da, începeți aplicarea protecției buton;

10.4) În Porniți aplicarea protecției , introduceți parola și faceți clic pe OK buton. Vedeți captura de ecran:

Acum este creată o listă derulantă dependentă. Când selectați Fructe în prima listă derulantă, în a doua pot fi selectate doar categoriile de fructe.

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut  /  Rescrie textul  /  Rezumat documente  /  Obțineți răspunsuri rapide, toate în Cuvânt

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere  /  Redimensionați toate imaginile  /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare  /  Secțiuni pauze  /  Toate anteturile  /  Casete text  /  hiperlinkuri  / Pentru mai multe instrumente de îndepărtare, mergeți la Eliminați grupul...

Inserții creative: Inserați Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  / Descoperiți mai multe în Inserați grupul...

???? Selectii de precizie: Repera cu precizie Pagini specifice  /  Mese  /  Forme  /  Paragrafe de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

Îmbunătățiri de stele: Navigați la orice locație  /  Inserarea automată a textului repetitiv  /  Comutați între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Descărcați Kutools pentru Word acum! 🚀
 
Comments (32)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there,

I have managed to follow the steps, thanks for your help.

I can't find my code when pressing Alt+F11 though? My drop downs are still there but I can't find the back coding?
This comment was minimized by the moderator on the site
Hi Crystal, thanks for the tutorial, it was useful and well written. Is it possible to add a third dropdown list with options that change depending on what is selected from the second dropdown list?
This comment was minimized by the moderator on the site
Hi Jack,

You can add a third drop-down list with options that change depending on what is selected from the second drop-down list. But you need to insert another "Drop-Down Form Field" and a new VBA code in advance.
1. Follow the steps from 1 to 4 in the post to create the first and second drop-down list and modify the properties.
2. Insert the third Drop-Down Form Field, double click to open it's Properties dialog box, enter a name in the Bookmark textbox (the same as the operation for the first and second drop-down lists) , in this case, I made up a random name called ddTaste, and then click OK.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/word-drop-down1.png
3. Open the Microsoft Visual Basic for Applications window, enter the VBA code provided in the article into the Module1. Then insert a new Module (called Module2), copy and paste the following VBA code into this Module2.
VBA code: Use for the third dependent drop-down list

Sub PopulateddTaste()
Select Case ActiveDocument.FormFields("ddCategory").Result
Case "Apple"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "AA"
.Add "BB"
End With
Case "Banana"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "CC"
.Add "DD"
End With
Case "Peach"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "EE"
.Add "FF"
End With
Case "Lychee"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "GG"
.Add "HH"
End With
Case "Watermelon"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "II"
.Add "JJ"
End With
Case "Cabbage"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "LL"
.Add "MM"
End With
Case "Onion"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "OO"
.Add "PP"
End With
Case "Pork"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "QQ"
.Add "RR"
End With
Case "Beef"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "SS"
.Add "TT"
End With
Case "Mutton"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "UU"
.Add "VV"
End With
End Select
End Sub

Note: In the code, AA, BB, CC... are the items you want to show in the third drop-down list, based on what was selected from the second drop-down list. For example, when you select "Apple" in the second drop-down, the third drop-down list will display the items AA and BB. Please modify this items to meet your needs.
4. Save the code and go back to the document. Follow the step 8 in the article to specify the macro for the first drop-down.
5. Double click the second drop-down list, choose "PopulateddTaste" in the Exist drop-down list.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/word-drop-down2.png
6. Then follow the step 8 to restrict editing in this document.
Now you have create a three level drop-down list.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/word-drop-down3.gif
This comment was minimized by the moderator on the site
Thanks for getting back to me, your time and help is appreciated.
This comment was minimized by the moderator on the site
Hallo,

ist das ganze auch unter Outlook möglich. Leider bekomme ich das so nicht hin da die Eigenschaften des Dropdown Menüs ganz anders aussehen.

Ich wollte unter Aufgaben einen Reparaturauftrag erstellen wo man Gebäude,Bereich und dan Zimmernummer oder Bezeichnung auwählen kann.

Ist das möglich in Outlook/Aufgaben?



Danke
This comment was minimized by the moderator on the site
Hi,
You can create a drop-down list with custom field in Outlook Task window by following the steps in this article:
How To Add A Drop Down List With Custom Filed In Outlook Task Window?
https://www.extendoffice.com/documents/outlook/4453-outlook-custom-fields-tasks-drop-down.html
Or create a drop-down list in word then copy and paste it into the Task window as you need.
But if you want to create dependent drop-down lists in Outlook Task, no method has been found yet.
Sorry about that.
This comment was minimized by the moderator on the site
Hi, many thx for the detailed tutorial, but I have a question since the word template is for others' use. You mentioned protecting mode and a password is a must, this can do if I tell them the password, then there is a conflict: there are some other blanks which are needed to be filled in, this cannot be done only if the protecting mode is off. What should I do? Is there any method to meet both 2 needs?
This comment was minimized by the moderator on the site
Hi, thx for the detailed tutorial, but I have a question since the word template is for others' use, 
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations