如何从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