如何在 Word 文檔中創建相依的下拉列表？

Author Siluvia Last modified 2025-08-23

Example showing limiting the choices in the second drop-down list based on the selected option in the first drop-down list

如截圖所示，您可能希望根據第一個下拉列表中的選擇來限制第二個下拉列表中的選項。本文將向您展示如何在 Word 文檔中創建相依的下拉列表。

以下的 VBA 方法可幫助您創建一個相依的下拉列表，其中第二個列表會根據第一個列表中的選擇而改變。請按照以下步驟操作：

確保 "開發工具" 選項卡在您的 Word 功能區中可見（如果不可見，請參閱教程如何在 Word 中顯示開發工具選項卡？）。然後通過點擊 "開發工具" > "舊版表單" > "下拉表單欄位" 兩次來插入兩個下拉列表。
右鍵點擊第一個下拉列表（這將是父列表），然後點擊 "屬性"。
在 "下拉表單欄位選項" 對話框中：
1. 將類別（例如，"水果", "蔬菜", "肉類"）逐一輸入到 "下拉項目" 框中，每次輸入後點擊 "添加"。
2. 在 "書籤窗格" 框中輸入 "ddfood"。
3. 點擊 "確定"。
右鍵點擊第二個下拉列表，選擇 "屬性"，在 "書籤窗格" 框中輸入 "ddCategory"，然後點擊 "確定"。
按下 Alt + F11 打開 Microsoft Visual Basic for Applications 窗口。

在 VBA 窗口中，點擊 "插入" > "模組"，然後粘貼以下程式碼：

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

注意：

在程式碼中，更改每個 "Case" 語句下的項目以適應您的內容。
"ddfood" 和 "ddCategory" 必須與您在 "下拉表單欄位選項" 對話框中輸入的書籤名稱匹配。

保存程式碼並返回到您的文檔。
再次右鍵點擊第一個下拉列表，然後選擇 "屬性"。在出現的 "下拉表單欄位選項" 對話框中，從 "退出" 下拉列表中選擇宏名稱 "Populateddfood"，然後點擊 "確定"。
點擊 "開發工具" > "限制編輯"。
在 "限制編輯" 窗格中：
1. 勾選 "僅允許在文檔中進行此類型的編輯"。
2. 從下拉列表中選擇 "填寫表單"。
3. 點擊 "是的，開始強制保護"。
4. 在 "開始強制保護" 對話框中，設置密碼並點擊 "確定"。