|
|
#2
05-14-2019, 07:38 AM
|
|||
|
|||
If you want to bookmark each table using the text in cell 1 then:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim oRng As Range
For Each oTbl In ActiveDocument.Tables
Set oRng = oTbl.Range
ActiveDocument.Bookmarks.Add Left(oTbl.Cell(1, 1).Range.Text, Len(oTbl.Cell(1, 1).Range.Text) - 2), oRng
Next oTbl
lbl_Exit:
Exit Sub
End Sub
|
| 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 10 
Office 2016
Threaded Mode