|
|
#4
05-15-2019, 12:39 AM
|
||||
|
||||
Simpler:
Code:
Sub Demo()
Dim Tbl As Table
For Each Tbl In ActiveDocument.Tables
With Tbl
.Range.Bookmarks.Add Split(.Cell(1, 1).Range.Text, vbCr)(0), .Range
End With
Next Tbl
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
| 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 |
 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 |
|
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 |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode