WORD VBA，如何判断当前光标:1.在哪个表格中，2.是否在最后一行？
WORDVBA，各位大侠，有两个问题求指教：1、同时存在多个表格，依次是table(1)、table(2)、table(3)，如何判断当前光标所在处是哪个表格呢？或者说如...
WORD VBA，各位大侠，有两个问题求指教：
1、同时存在多个表格，依次是table(1)、table(2)、table(3)，如何判断当前光标所在处是哪个表格呢？或者说如何得出当前光标所在
表格的索引号（index值，即table后面扩号中的1、2、3这些）。我现在权宜的方法是使用
Selection.Tables(1).Range.Start语句，但这个语句得出的值经常是变化的，所以不好用。
2、如何判断当前光标是否处于指定表格的最后一行？
衷心谢谢各位的关注和回答！
第2个问题我自己搜到答案了。。。
If Selection.Information(wdStartOfRangeRowNumber) <> ActiveDocument.Tables(2).Rows.Count Then
第1个问题仍待解决，网上也没有找到。。。有劳各位大侠了。 展开
1、同时存在多个表格，依次是table(1)、table(2)、table(3)，如何判断当前光标所在处是哪个表格呢？或者说如何得出当前光标所在
表格的索引号（index值，即table后面扩号中的1、2、3这些）。我现在权宜的方法是使用
Selection.Tables(1).Range.Start语句，但这个语句得出的值经常是变化的，所以不好用。
2、如何判断当前光标是否处于指定表格的最后一行？
衷心谢谢各位的关注和回答！
第2个问题我自己搜到答案了。。。
If Selection.Information(wdStartOfRangeRowNumber) <> ActiveDocument.Tables(2).Rows.Count Then
第1个问题仍待解决，网上也没有找到。。。有劳各位大侠了。 展开
1个回答
展开全部
Dim myTable As Table
Dim talbe_ID
For Each myTable In ThisDocument.Tables
If Selection.Range.InRange(myTable.Range) Then
table_ID = myTable.ID
End If
Next
说明：由于Tables对象没有Index属性，也不会自动赋值ID属性（或Title属性），因此需要你事先自行定义各个表格的 ID 属性值，上述代码才会返回所需结果，否则返回的是默认的空值。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
