[求助]表格的索引

ybird

请版主指点：

通过.information(wdWithInTable)可以知道插入点是在表格中，那么有什么方法可以知道所在表格的索引值吗？

ybird

再次请教版主及各位：

range.information可以得到选定区域的位置，比如上面的表格，还有是否选定了图文框、文本框等，但是我没有找到得到这些比如表格、文本框等的索引值的方法。望大家一并赐教。

守柔

直接的方法我也没有。

这是间接的，请参阅：

Sub Example()
    Dim MyRange As Range
    With Selection
        If .Information(wdWithInTable) And .Type = wdSelectionIP Then
            Set MyRange = ActiveDocument.Range(0, .Tables(1).Range.End)
            MsgBox "The Table's Item =" & MyRange.Tables.Count
        End If
    End With
End Sub
'文本框的可以类似,但自选图形另有一种索引方法,我只是个人以为(类似于书签的一种,或者象目录索引中的切换域代码后的一个索引号,你可以参考一下,我曾经过的一个直角坐标系的程序,变换为其NAME,可以得到默认名字.

我有时间,深入一下再讨论.

[此贴子已经被konggs于2006-12-11 10:14:30编辑过]

ybird

好办法，多谢版主！

团子大家族cl

守柔 发表于 2005-4-28 19:08
直接的方法我也没有。这是间接的，请参阅：Sub Example()    Dim MyRange As Range&nb ...

好灵性的办法，还是老师思维开阔