Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #12  
Old 05-15-2019, 06:49 AM
gmaxey gmaxey is offline Table named after first cell Windows 10 Table named after first cell Office 2016
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,617
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default

No harm, no foul. My point is that you didn't indicate from the start that your cell content could contain text that was invalid for a bookmark name, that it could be two or more words separated by spaces or that your really only wanted the first word.


If you really only want the first word then both mine and Paul's code could have been different:

Code:
Sub Demo()
Dim lngIndex As Long
Dim oTbl As Table
  For lngIndex = 2 To ActiveDocument.Tables.Count
    Set oTbl = ActiveDocument.Tables(lngIndex)
    With oTbl
      .Range.Bookmarks.Add Trim(.Cell(1, 1).Range.Words(1)), .Range
    End With
  Next lngIndex
End Sub
Now still, if the first "word" happens to be a number or if there is no first word (empty cell), you will still get and error.
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Last edited by gmaxey; 05-15-2019 at 12:09 PM.
Reply With Quote
 

Tags
bookmark, table



Similar Threads
Thread Thread Starter Forum Replies Last Post
Use of named ranges based on cell content Intruder Excel 12 02-25-2019 09:42 AM
save selected worksheets, named by cell value rossmortimore Excel 1 12-27-2018 01:56 PM
Table named after first cell Code to find a named (bookmarked?) table, replicate a row or table, and delete a specified table. kevinbradley57 Word VBA 9 09-21-2017 04:58 PM
Table named after first cell how do i use a named cell for each worksheet cwkotch Excel 3 11-03-2015 09:04 AM
Can't use a zero in a named cell TechEd Excel 2 10-16-2012 10:06 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 01:34 AM.


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