如何编写VBA代码将Word表单下拉列表设为必填字段？

针对Word表单的下拉列表字段，你可以用以下VBA代码实现必填校验逻辑，和自由文本的思路类似，仅针对下拉列表特性调整了判断条件：

Sub MustFillDropdown()
    Dim ddField As FormField
    Set ddField = ActiveDocument.FormFields("YourDropdownName") '替换为你的下拉列表字段名称
    
    ' 校验下拉列表是否未选择有效选项（可根据实际情况调整判断条件）
    If ddField.Result = "" Or ddField.Result = "请选择" Then
        Do
            MsgBox "此字段为必填项，请从下拉列表中选择一个选项。", vbExclamation, "必填字段提示"
            ddField.Select '自动定位到下拉列表，方便用户操作
            DoEvents '等待用户完成选择操作
        Loop While ddField.Result = "" Or ddField.Result = "请选择"
    End If
End Sub

注意事项 #

• 把代码中的YourDropdownName替换成你表单里下拉列表字段的实际名称
• 如果你的下拉列表默认提示选项不是"请选择"，请修改判断语句里对应的文本
• 代码会循环弹出提示，直到用户选择了有效选项，同时自动定位到该下拉列表字段，提升操作便利性

内容的提问来源于stack exchange，提问作者Wilberta