如何在选择下拉菜单项时运行 VBA 代码

Question

在我的 MS Word 表单中，有一些下拉菜单。 默认情况下，“是”是绿色，“否”是打开文件时的红色。 我想在选择时更改下拉菜单项的字体颜色，在“否”的情况下为红色，在“是”的情况下为绿色。

为此，我创建了一个Document_ContentControlOnExit子程序，目前仅用于以下 MS Word 表单中的“事件发生后 AA 的性能是否下降？问题。但是从下拉菜单中选择“是”时代码没有运行。我可以在 MS Excel 中编写和运行 VBA 代码，但对 MS Word VBA 是新手，因此对如何运行代码感到困惑。有人能帮忙吗？

我还想创建一个 VBA 代码，该代码将在打开文件时检查并确保所有“否”为红色，“是”为绿色。 所以我认为，应该有一个 VBA 将在 MS Word 文件打开期间运行并为此目的遍历所有下拉菜单。 但这是次要的，如果解决了，奖金但不是那么重要，此时在选择菜单项期间更改字体颜色对我来说很重要。

这是 VBA 代码：

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl
    If .Title = "incident" Then
    Select Case .Range.Text
      Case "Yes": .Range.Font.ColorIndex = wdRed
      Case "No": .Range.Font.ColorIndex = wdBrightGreen
      Case Else: .Range.Font.ColorIndex = wdAuto
    End Select
  End If
End With
End Sub

这是 MS Word 文件：

https://drive.google.com/file/d/1Avjx8nubEIp9K9NwqtyfHvdohQEsQiP8/view?usp=sharing