Hur skapar man beroende listor i ett Word-dokument?

Som visas på skärmdumpen kanske du vill begränsa valen i den andra rullgardinslistan baserat på valet som gjorts i den första rullgardinsmenyn. Den här artikeln visar hur du skapar beroende rullgardinslistor i ett Word-dokument.

Skapa beroende rullgardinslistor i Word med VBA-kod

Skapa beroende rullgardinslistor i Word med VBA-kod

VBA-metoden nedan hjälper dig att skapa en beroende rullgardinslista där den andra listan ändras baserat på vad som är valt i den första listan. Följ dessa steg:

1. Se till att fliken "Utvecklare" är synlig i Word-bandet (om inte, se handledningen Hur visar man fliken Utvecklare i Word?). Infoga sedan två rullgardinslistor genom att klicka på "Utvecklare" > "Legacy Forms" > "Drop-Down Formulärfält" två gånger.

   

2. Högerklicka på den första rullgardinsmenyn (detta kommer att vara den överordnade listan) och klicka på "Egenskaper".

   

3. I dialogrutan "Alternativ för formulärfält":
   1. Ange kategorierna (t.ex. "Frukt", "Grönsaker", "Kött") i rutan "Rullgardinsobjekt" en i taget och klicka på "Lägg till" efter varje.
   2. Skriv "ddfood" i rutan "Bokmärke".
   3. Klicka på "OK".

      

4. Högerklicka på den andra rullgardinsmenyn, välj "Egenskaper", skriv "ddCategory" i rutan "Bokmärke" och klicka på "OK".

   

5. Klicka Alt + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.
6. I VBA-fönstret klickar du på "Infoga" > "Modul" och klistra sedan in följande kod:

   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

   Anmärkningar:

   • I koden ändrar du objekten under varje "Case" uttalande som passar ditt innehåll.
   • "ddfood"Och"ddCategory" måste matcha bokmärkesnamnen du angav i dialogrutorna "Alternativ för formulärfält".
7. Spara koden och gå tillbaka till ditt dokument.
8. Högerklicka på den första rullgardinsmenyn igen och välj "Egenskaper". I dialogrutan "Alternativ för formulärfält" som visas, från rullgardinsmenyn "Avsluta", välj makronamnet "Populateddfood", klicka sedan på "OK".

   

9. Klicka på "Utvecklare" > "Begränsa redigering".

   

10. I rutan "Begränsa redigering":
    1. Markera "Tillåt endast denna typ av redigering i dokumentet".
    2. Välj "Fyll i formulär" från rullgardinsmenyn.
    3. Klicka på "Ja, börja tillämpa skydd".
    4. I dialogrutan "Börja tillämpa skydd", ställ in ett lösenord och klicka på "OK".

       

Nu är den beroende rullgardinsmenyn aktiv. När du väljer "Frukt" i den första listan kommer endast fruktalternativ att visas i den andra listan.

Bästa kontorsproduktivitetsverktyg

Kutools for Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk (bevara format) / Super Translate (Bevara format) / AI-redaktion / AI korrekturläsning...

📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF...

✏ Innehållsredigering: Batchsök och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till ta bort grupp...

➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Flera bilder / Upptäck mer i Insert grupp...

🔍 Precisionsval: Precisera Specifika sidor / Bord / Former / Rubrik stycken / Förbättra navigering med mer Välja pass...

⭐ Stjärnförbättringar: Navigera till valfri plats / Auto-infoga upprepad text / Växla mellan dokumentfönster / 11 Konvertering verktyg...

🌍 Stöder 40+ språk: Använda sig av Kutools på ditt föredragna språk – stöder engelska, spanska, tyska, franska, kinesiska och över 40 andra!

👉 Vill du prova dessa funktioner? Ladda ner Kutools for Word nu! 🚀

Gratis nedladdning     Köp nu     Lära sig mer om Kutools for Word

 

Bästa kontorsproduktivitetsverktyg

Kutools for Word - 100+ verktyg för Word

• 🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk / Super Translate / AI-redaktion / AI korrekturläsning
• 📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Batchkonvertera till PDF
• ✏ Innehållsredigering: Batch Hitta och ersätt / Ändra storlek på alla bilder
• 🧹 Enkel rengöring: Ta bort extra utrymmen / Ta bort sektionsbrott
• ➕ Kreativa inlägg: Sätt i tusen avskiljare / Infoga kryssrutor / Skapa QR-koder
• 🌍 Stöder 40+ språk: Kutools talar ditt språk – stöds över 40 språk!

Gratis nedladdning Köp nu Lära sig mer om Kutools