Code: Select all
Dim oRange As Range
Set oRange = ActiveDocument.Tables(1).Cell(2, 2).Range
ActiveDocument.Bookmarks.Add("mymark",oRange.start)
Code: Select all
Dim oRange As Range
Set oRange = ActiveDocument.Tables(1).Cell(2, 2).Range
ActiveDocument.Bookmarks.Add("mymark",oRange.start)
Code: Select all
Dim oRange As Range
Set oRange = ActiveDocument.Tables(1).Cell(2, 2).Range
oRange.Collapse
ActiveDocument.Bookmarks.Add "mymark", oRange