如何在 Word 文档中创建动态列表？

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

如截图所示，您或许希望根据第一个下拉列表的选择来限定第二个下拉列表中的选项。本文将为您演示如何在 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. 在“开始强制保护”对话框中设置密码后，单击“确定”。