[求助]如何确定当前使用的表格的index

lyb200

如何确定当前使用的表格的index

在文档中有许多这样的表格，通过编程查找姓名才找到位置

    

UlKjGzE7.rar (3.23 KB, 下载次数: 8)

2006-12-10 18:46 上传

点击文件名下载附件
[求助]如何确定当前使用的表格的index

[此贴子已经被作者于2006-12-10 18:46:25编辑过]

konggs

楼主搜一下。家中有。

lyb200

我还是不懂

守柔

QUOTE:

以下是引用lyb200在2006-12-10 23:47:18的发言：
我还是不懂

http://club.excelhome.net/viewthread.php?tid=95454&replyID=512843&skin=1

使用查找姓名的方法，注意，使用RANGE对象的查找，然后定义一个RANGE对象（或者SETRANGE方法），其START为查找的RANGE的STATR或者END位置，END为文档结束前一个字符位置，表格则为该RANGE的第一个表格即可。

如：

Sub Exampel()
    Dim myRange As Range, myTable As Table, oCell As Cell
    With ActiveDocument
        Set myRange = .Content
        With myRange.Find
            .ClearFormatting
            .Text = "张三"
            If .Execute Then
                myRange.SetRange myRange.Start, ActiveDocument.Content.End - 1
                Set myTable = myRange.Tables(1)
                For Each oCell In myTable.Range.Cells
                    Debug.Print oCell.Range.Text
                Next
            Else
                MsgBox "Word未找到指定内容，请确认！"
            End If
        End With
    End With
End Sub

lyb200

谢谢老大的指点，我看了

http://club.excelhome.net/viewthread.php?tid=95454&replyID=512843&skin=1

网页，其实以前有人问过，

我的问题和他的一样，现在可以确认光标进入某个表格内，但就是不能知道光标所在的表格的索引值。

    Selection.HomeKey Unit:=wdStory, Extend:=wdExtend    '待光标进入表格后选中光标到文档前面部分
    iIndexofTable = Selection.Range.Tables.Count    ' 这样就可以计算出表格的数量，即表格的索引值
    MsgBox iIndexofTable
    Selection.MoveRight Unit:=wdCharacter, Count:=1  '光标下移，以便下一次查找

不知有无道理。

[此贴子已经被作者于2006-12-11 10:15:15编辑过]

konggs

现在可以确认光标进入某个表格内？

但就是不能知道光标所在的表格的索引值？

老大的代码不就是确定索引值吗？

索引值指什么，不是指此表格是文档的最几个表格？

lyb200

谢谢konggs的指导，可能是我的表述不清楚，

我指的是在我文档众多的表格内光标所在的那个表格的索引值。

而不是具体指表格内部的单元格的索引值。

还是谢谢帮助！