Thread: [Solved] Table named after first cell
View Single Post
 
Old 05-15-2019, 05:47 AM
gmaxey gmaxey is offline Windows 10 Office 2016
Expert
  
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,599
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default
bookmarks can't have spaces in them. You can try:

Code:
Sub Demo()
Dim Tbl As Table
For Each Tbl In ActiveDocument.Tables
  With Tbl
     .Range.Bookmarks.Add Replace(Split(.Cell(1, 1).Range.Text, vbCr)(0), " ", "_"), .Range
  End With
Next Tbl
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote