如何在 Word 文件中建立動態列表？

作者Siluvia修改日期2025-04-11

如截圖所示，您或許希望讓第二個下拉列表的選項，根據第一個下拉列表的選擇動態調整。本文將說明如何在 Word 文件中建立這類動態下拉列表。

下列 VBA 方法可協助您建立動態下拉清單，讓第二個清單能根據第一個清單的選擇自動更新。請依照以下步驟操作：

請確認您的 Word 功能區已顯示「開發人員」索引標籤（若尚未顯示，請參閱教學）如何在 Word 中顯示開發人員索引標籤？）。接著，依序點選「開發人員」＞「舊版表單」＞「下拉式表單欄位」兩次，即可插入兩個下拉列表。
以滑鼠右鍵按一下第一個下拉式欄位（即父清單），然後點選「內容」。
在「下拉式表單欄位選項」對話方塊中：
1. 將分類（例如：「Fruit」、「Vegetable」、「Meat」）逐一輸入至「下拉項目」欄位中，每輸入一項後，點擊「新增」。
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. 在「開始強制執行保護」對話方塊中，設定密碼後，按一下「確定」。