VBA find or name a Table

macropod · #2 01-17-2011, 02:18 PM

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
find and replace	anil3b2	Word	0	08-03-2010 11:30 PM
can Find/Replace NOT find something?	Bobosmite	Word	6	05-27-2010 08:09 PM
Pasting table in Photoshop cutting off table	azdolfan	Word Tables	0	05-16-2010 01:52 PM
Find Hyperlinks	jimbassett	Excel	2	02-08-2010 08:08 AM
Find and add new Shapes	bonani	PowerPoint	1	11-26-2009 06:21 PM