Word VBA：如何获取复选框内容控件所在表格的索引编号

原代码中wdTableNumber不是Range.Information方法支持的合法常量，因此无法直接通过该属性拿到表格在文档集合中的索引。

方案1：无需获取索引，直接操作当前所属表格（最高效） #

如果你的最终目的是操作控件所在的表格，完全不需要额外获取索引编号，直接通过控件Range拿到所属表格对象即可，无任何额外遍历开销：

Dim docActive As Document
Dim ContCtrl As ContentControl
Dim UpperLeftText As String
Set docActive = ActiveDocument

For Each ContCtrl In docActive.ContentControls
  If ContCtrl.Type = wdContentControlCheckBox Then
    If ContCtrl.Range.Information(wdWithInTable) Then ' 修正原代码漏写的Then关键字
       MsgBox ("RowNumber: " & ContCtrl.Range.Information(wdEndOfRangeRowNumber))
       ' 直接获取当前控件所在的表格对象
       Dim currentTable As Table
       Set currentTable = ContCtrl.Range.Tables(1)
       ' 直接操作表格即可，无需索引
       UpperLeftText = currentTable.Rows(1).Cells(1).Range.Text 
       MsgBox "表格左上角内容：" & UpperLeftText
    End If
  End If
Next

方案2：需要获取表格在文档Tables集合中的索引 #

如果业务场景确实需要拿到索引编号，无需遍历全文档所有表格匹配，只需要统计从文档开头到当前控件位置的表格总数即可，该数值就是当前表格的索引：

Dim docActive As Document
Dim ContCtrl As ContentControl
Dim TableNo As Integer
Dim UpperLeftText As String
Set docActive = ActiveDocument

For Each ContCtrl In docActive.ContentControls
  If ContCtrl.Type = wdContentControlCheckBox Then
    If ContCtrl.Range.Information(wdWithInTable) Then
       MsgBox ("RowNumber: " & ContCtrl.Range.Information(wdEndOfRangeRowNumber))
       ' 统计从文档开头到当前控件结束位置的表格总数，即为当前表格索引
       TableNo = docActive.Range(0, ContCtrl.Range.End).Tables.Count
       MsgBox ("TableRef: " & TableNo)
       UpperLeftText = docActive.Tables(TableNo).Rows(1).Cells(1).Range.Text
    End If
  End If
Next

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