Hoppa till huvudinnehåll

Hur skapar man beroende listor i ett Word-dokument?

Författare: Siluvia Senast ändrad: 2025-04-11
Exempel som visar begränsning av valen i den andra rullgardinsmenyn baserat på det valda alternativet i den första rullgardinsmenyn

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.
    Fliken Utvecklare med äldre formulär markerat och rullgardinsfält för formulär markerat
  2. Högerklicka på den första rullgardinsmenyn (detta kommer att vara den överordnade listan) och klicka på "Egenskaper".
    Första rullgardinslistan högerklickad med alternativet Egenskaper valt
  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".
      Listrutan Alternativ för formulärfält
  4. Högerklicka på den andra rullgardinsmenyn, välj "Egenskaper", skriv "ddCategory" i rutan "Bokmärke" och klicka på "OK".
    Listrutan Alternativ för formulärfält
  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".
    Listrutan Alternativ för formulärfält
  9. Klicka på "Utvecklare" > "Begränsa redigering".
    Knappen Begränsa redigering på fliken Utvecklare på menyfliksområdet
  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".
      Begränsa redigeringsfönstret och dialogrutan Börja tillämpa skydd

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.

Exempel som visar begränsning av valen i den andra rullgardinsmenyn baserat på det valda alternativet i den första rullgardinsmenyn

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!

Kutools och Kutools Plusflikar i Word-menyfliksområdet
👉 Vill du prova dessa funktioner? Ladda ner Kutools for Word nu! 🚀
 

Bästa kontorsproduktivitetsverktyg

Kutools for Word - 100+ verktyg för Word