Hi smed,
If you bookmark the table, you can find the first table in the bookmarked range. For example:
Code:
celltext = ActiveDocument.Bookmarks("Table1").Range.Tables(1).Cell(1, 1).Range.Text
Do note, though, that specifying 'Cell(1, 1).Range.Text' picks up the end-of-cell marker. To get just the cell's text range, use something like:
Code:
Dim CelRng As Range
Set CelRng = ActiveDocument.Bookmarks("Table1").Range.Tables(1).Cell(1, 1).Range
CelRng.End = CelRng.End - 1
celltext = CelRng.Text
To bookmark a table, you don't need to select the whole table. You can simply bookmark any of the end-of-row markers.