Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 01-17-2011, 01:37 PM
smed smed is offline VBA find or name a Table Windows XP VBA find or name a Table Office 2007
Novice
VBA find or name a Table
 
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.

Thanks.
Reply With Quote
  #2  
Old 01-17-2011, 02:18 PM
macropod's Avatar
macropod macropod is offline VBA find or name a Table Windows 7 32bit VBA find or name a Table Office 2000
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Last edited by macropod; 01-17-2011 at 07:25 PM.
Reply With Quote
Reply

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
VBA find or name a Table 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
VBA find or name a Table Find and add new Shapes bonani PowerPoint 1 11-26-2009 06:21 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 04:13 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft