' ' ' VB
Sub ProcessSelectedColumn()
Dim oTbl As Table
Dim oCell As Cell
Dim iRow As Integer
Dim iCol As Integer
Dim oRange As Range

' 检查是否有表格被选中，且只选中了一个表格的有效内容
If Selection.Information(wdWithInTable) Then
    On Error Resume Next
    Set oTbl = Selection.Tables(1)
    On Error GoTo 0

    ' 如果成功获取到表格对象
    If Not oTbl Is Nothing Then
        ' 这里假设你原本是想处理用户指定列，可通过以下方式让用户选择列（示例，可根据实际需求完善）
        iCol = InputBox("请输入要处理的列索引（从1开始）：")

        ' 遍历选定列的每个单元格
        For iRow = 1 To oTbl.Rows.Count
            On Error Resume Next
            Set oCell = oTbl.Cell(iRow, iCol)
            On Error GoTo 0

            ' 如果成功获取到单元格对象
            If Not oCell Is Nothing Then
                ActiveDocument.Indexes.MarkEntry Range:=oCell.Range, Entry:=oCell.Range.Text
            End If
        Next iRow
    Else
        MsgBox "未能正确获取到选中的表格，请确保只选中了一个表格的有效内容。"
    End If
Else
    MsgBox "没有选中表格或表格中的单元格。"
End If

End Sub

'''