vba - 如何从 MS Word ContentControl 下拉框中返回索引或列表编号

Question

我在 Word 中创建了一个内容控制的下拉框。我需要能够捕获框中所选项目的索引号。我已经知道如何在有人选择一个项目后捕获文本本身。
该代码是：curVal = ContentControl.Range.Text 但我不知道如何捕获索引。

Answer 1

这很简单：

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
Dim i As Long
With CCtrl
  For i = 1 To .DropdownListEntries.Count
    If .DropdownListEntries(i).Text = .Range.Text Then
      MsgBox i: Exit For
    End If
  Next
End With
End Sub