(Solved!) Using Range to insert bookmark in table cell

[Charles Kenyon]

I have attempted the following code to insert a bookmark The last statement is not accepted.

Code: Select all

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

I can select the cell and add the bookmark but prefer to use a range.

[HansV]

The second argument of Bookmarks.Add should be a range, not a position in the document. You can use:

Code: Select all

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

[Charles Kenyon]

Thank you.