Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Word > Word VBA

LinkBack Thread Tools Display Modes
Old 01-17-2011, 01:37 PM
smed smed is offline Windows XP Office 2007
Join Date: Jan 2011
Posts: 3
smed is on a distinguished road
Question VBA find or name a Table

I would like to know how to find or name a table using VBA, either method will solve my problem. By naming a table I mean that I can access a table called "Table1" by something like this:

celltext = ActiveDocument.Tables("Table1").Cell(1, 1).Range.Text

I can't simply use the index of the table because it may change depending if more tables are added before the one I want to access.

Reply With Quote
Old 01-17-2011, 02:18 PM
macropod's Avatar
macropod macropod is online now Windows 7 32bit Office 2000
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 16,324
macropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to behold

Hi smed,

If you bookmark the table, you can find the first table in the bookmarked range. For example:
celltext = ActiveDocument.Bookmarks("Table1").Range.Tables(1).Cell(1, 1).Range.Text
Do note, though, that specifying 'Cell(1, 1).Range.Text' pick up the end-of-cell marker. To get just the cell's text range, use something like:
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.
Paul Edstein
[MS MVP - Word]

Last edited by macropod; 01-17-2011 at 07:25 PM.
Reply With Quote
Please reply to this thread with any new information or opinions.

Thread Tools
Display Modes

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

All times are GMT -7. The time now is 06:16 PM.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc. is not affiliated with Microsoft