Word - W2003: find cursor location in table coordinates (table/row/column

Asked By ker_01

19-Mar-10 04:36 PM

I have been asked to extract data from an existing form that I did not set up,
and the format is less than ideal. To minimize my cycles of testing, it would
be much easier to place my cursor in a sample document, and then debug.print
the cursor location as table coordinates so I can hardcode the 'cells' that I
need to extract. There are about 15 tables total, and I will have to extract
content from most of them.

I played around with the range.parent object but could not figure out how to
return the table info.

I also googled, but no joy.

Any suggestions or snippets would be greatly appreciated.

Thanks,
Keith

19-Mar-10 04:51 PM

I kept searching and found a partial answer here:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=867
but that still does not get me the table number. Can anyone provide the
object model syntax to capture the table count as well?

Thank you!
Keith

19-Mar-10 04:53 PM

I have not used this in a while, but I think it might help you:

http://gregmaxey.mvps.org/Table_Cell_Data.htm

19-Mar-10 05:00 PM

Dim pTableNumber As String
pTableNumber = "The selection is in table: " & _
ActiveDocument.Range(0,
Selection.Tables(1).Range.End).Tables.Count
MsgBox pTableNumber & ".  The selection covers " &
Selection.Cells.Count & " cells, from Cell(" & _

19-Mar-10 06:14 PM

That definitely gives me the table number, and now I realize why the source
form looks so 'wonky' - it has tables embedded in tables. So, When I am in
into the first cell of the embedded table, I also get "Table 3 (1,1)".

Is there a preferred method for identifying embedded tables so that I can
treat each one independently? I have some cells in parent tables that appear
to have more than one child (embedded) table, even within just the one cell.

Thank you!
Keith

19-Mar-10 06:51 PM

I am halfway there; I just had to find out that the object model uses "nested"
instead of "embedded" to describe these tables. So now I added:
lngNestLvl = Selection.Cells.NestingLevel

Which accurately gives me the /level/ of nesting, but does not give me the
table number of the nested table.

In other words, I create a 1-cell table, and within that cell I add two
different nested tables. I run my code in cell 1 of each nested table, and
they both tell me that I am in table 1 (overall parent table), nested at
level 2, and in cell 1,1 (which seems to refer to the child table, not the
parent table).

If there is more than one nested table in a single cell, how do I tell which
one I am in?

Thank you!
Keith