[求助]如何确定当前光标在哪个表?

gdqbx

如何确定当前光标在哪个表或者表号? thEToPPz.rar (2.91 KB, 下载次数: 7)

2006-11-22 19:22 上传

点击文件名下载附件
[求助]如何确定当前光标在哪个表?

ActiveDocument.Tables(n).cell(Row:=x, Column:=y + 1).Range.Text = "5"

这个"n"怎么确定呢?

[此贴子已经被作者于2006-11-22 19:24:45编辑过]

konggs

Sub 确定光标所在是第几个表格()
Dim arange As Range
If Selection.Information(wdWithInTable) = True Then '光标在表格中
   Set arange = ActiveDocument.Range(0, Selection.Tables(Selection.Tables.Count).Range.End)
   '则所在的位置从头到选中部分的表格
Else
   Set arange = ActiveDocument.Range(0, Selection.Range.End)
   '否则，就是从文档头到光标所在位置的有多少个表格
End If
    MsgBox arange.Tables.Count
End Sub

konggs

默认的n就是从头向后数，第一个就是第一个。以此类推。

gdqbx

谢谢版主！