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
' 获取包含所选内容的表格
Set oTbl = Selection.Tables(1)
' 遍历选定列的每个单元格
For iRow = 1 To oTbl.Rows.Count
Set oCell = oTbl.cell(iRow, 2)
ActiveDocument.Indexes.MarkEntry Range:=oCell.Range, Entry:=oCell.Range.Text
Next iRow
Else
MsgBox "没有选中表格或表格中的单元格。"
End If
End Sub
