如何在 Word 表格中插入带有颜色标记的下拉列表？

作者晓阳修改日期2025-04-17

假设您的 Word 文档中有一个表格，现在您希望在表格的某一列插入带有颜色标记的下拉列表。也就是说，当您在下拉菜单中选择某个选项时，单元格会变为红色，选择其他选项时则显示为绿色，如下图所示：

使用 VBA 代码在 Word 文档中插入带颜色标记的下拉列表

以下步骤将引导您在表格单元格中插入下拉列表，并根据所选项自动为单元格应用背景颜色：

选中表格中需要插入下拉列表的单元格，然后点击“开发工具” > “下拉列表内容控件”。
注意：如果您在功能区中未看到“开发工具”选项卡，请参阅：如何在 Word 功能区中显示“开发工具”选项卡。
下拉列表已成功插入到指定单元格。随后，点击“开发工具” > “属性”。

在“内容控件属性”对话框中执行以下操作：
1. 在“标题”文本框中输入您的标题名称。
2. 单击“添加”按钮，即可打开“添加选项”对话框。
3. 在“显示名称”文本框中输入下拉列表的选项名称。
重复步骤 3，根据需要添加其他下拉列表项。
创建第一个下拉列表后，您可以将其直接复制并粘贴到其他单元格。
按住 ALT + F11，即可打开“Microsoft Visual Basic for Applications”窗口。

在 Microsoft Visual Basic for Applications 窗口中，双击“Project”窗格中的“ThisDocument”以打开模块。接着，将以下代码复制并粘贴到空白模块中：

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
    If ContentControl.Title = "Status" Then
        Select Case .Text
            Case "Complete"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

注意：在上述代码中，"Status" 是创建下拉列表时使用的标题名称，"Complete"、"In Progress" 和 "Not Start" 为各选项。您可根据实际需求更改这些值及对应的颜色。