如何在Word文档中创建相关的下拉列表？
如左图所示，您需要根据第一个下拉列表中的选项限制第二个下拉列表中的选项，您该怎么做？ 本文将向您展示一种在 Word 文档中创建依赖下拉列表的方法。
使用VBA代码在Word中创建相关的下拉列表
下面的 VBA 代码可以帮助您在 Word 文档中创建依赖下拉列表。 请按照说明一步一步来。
1.首先，您需要在Word文档中插入两个下拉列表。 请点击 开发商 > 旧版表格 > 下拉式表格栏位。 看截图：
2.右键单击第一个下拉列表（此下拉列表应为父列表），然后单击 属性。 看截图：
3.在开幕 下拉表单字段选项 对话框，您需要：
3.1将类别输入 下拉项目 框，然后单击 地址 按钮，重复该操作，直到将所有类别添加到下拉列表框中的项目中。
3.2输入 吃货 到 书签 框。
3.3点击 OK 按钮。 看截图：
4.右键单击第二个下拉列表，单击 租房 打开它的 下拉表单字段选项 对话框，然后在对话框中输入 dd类别 到 书签 框并单击 OK 按钮。 看截图：
5。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。
6.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块 然后将下面的VBA代码复制到“模块”窗口中。
VBA代码：在Word中创建从属下拉列表
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笔记：
1.在代码中，请根据需要更改每种情况下的项目。
2. 吃货 和 dd类别 应该与您在上面两个中输入的书签选项匹配 下拉表单字段选项 对话框。
7.保存代码，然后返回文档。
8.右键单击第一个下拉列表，然后单击 租房 打开 下拉表单字段选项 对话框。 在对话框中，请从上方选择上面的宏名称（此处为Popolateddfood）。 Exit 退出 下拉列表，然后单击 OK 按钮。
9.现在点击 开发商 > 限制编辑 如下图所示。
10.在 限制编辑 窗格，您需要：
10.1）检查 只允许这种类型的编辑 在文件中 框;
10.2）选择 填写表格 从下拉列表中选择；
10.3）点击 是的，开始执行保护 按钮;
10.4）在 开始执行保护 对话框中，输入密码，然后单击 OK 按钮。 看截图：
现在创建了一个依赖下拉列表。 在第一个下拉列表中选择水果时，在第二个下拉列表中只能选择水果类别。
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点！
深入了解下面突出显示的功能或 单击此处探索其全部功能 Kutools for Word.
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择（PDF/TXT/DOC/XLSX） / 批量转换为PDF / 将页面导出为图像 / 一次打印多个文件 ...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字 ...
🧹 轻松清洁: 扫开 多余的空间 / 分节符 / 所有标题 / 文本框 / 超链接 / 如需更多删除工具，请前往我们的删除组
➕ 创意插入: 插页 千位分隔符 / 复选框 / 单选按钮 / 二维码 / 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 在我们的插入组中发现更多信息
🔍 精准选择: 精确定位特定页面 / 表 / 形状 / 标题段落 / 使用我们的选择组轻松导航
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具 ...
使用 Kutools 转换您的 Word 任务。 👉 立即下载并试用 30 天 🚀。
