怎么知道选中的单元格属于第几个表格？

lxz_lz

怎么知道选中的单元格属于第几个表格？ 有这样的属性或者方法可以获得吗？谢谢

konggs

行否？

Sub 表格()
Dim a As Table, i%
i = 1
For Each a In ActiveDocument.Tables
a.ID = "你选中的是表格" & i
i = i + 1
Next
MsgBox Selection.Tables(1).ID
End Sub

守柔

以下是引用[I]konggs[/I]在2006-3-1 11:23:47的发言：[BR]

行否？

Sub 表格()
Dim a As Table, i%
i = 1
For Each a In ActiveDocument.Tables
a.ID = "你选中的是表格" & i
i = i + 1
Next
MsgBox Selection.Tables(1).ID
End Sub

TO Konggs，试试RANGE对象，之前也有过贴子： '* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word@ExcelHome 2006-3-1 11:43:39 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Option Explicit Sub GetTableId() Dim myRange As Range With ActiveDocument Set myRange = Selection.Cells(1).Range myRange.SetRange 0, myRange.End MsgBox "所选单元格位于活动文档的第" & myRange.Tables.Count & "个表格中!" End With End Sub '----------------------

lxz_lz

嗯，谢谢两位!

lxz_lz

myRange.SetRange 0, myRange.End

这句总是出错，提示说 myRange.End 应该是必选参数？

konggs那个方法看不大懂啊？那个循环是干什么用的？MsgBox Selection.Tables(1).ID 这一句好像就够了？

konggs

老大的代码高明，用Range来定义一个范围，也不用在整个文档来找。好！

楼主，我的方法就是把每个表格定义一个ID，然后输出所在表格的ID。

lxz_lz

谢谢，最后我还是用konggs的方法来解决了。

myRange.SetRange 0, myRange.End

这句总是出错，提示说 myRange.End 应该是必选参数？