Выделить текст и посадить на него закладку

Sub AddBookmarkToTaskCard()
 
Dim oTable As Word.Table
Dim iCellValue As String
Dim iRowsCount As Integer, i As Long
On Error Resume Next
 
    For Each oTable In ThisDocument.Tables 'Просматриваем в каждой таблице
        If Left(oTable.Cell(1, 1).Range.Text, 11) = "TASK NUMBER" Then
            iRowsCount = oTable.Rows.Count 'Считаем количество строк в таблице
            For i = 2 To iRowsCount
                iCellValue = Replace(oTable.Cell(i, 1).Range.Text, vbCr, "") 'Убираем все переносы в ячейке
                iCellValue = Replace(oTable.Cell(i, 1).Range.Text, "-", "_") 'Меняем знак "-" на "_" для имени закладки
                iCellValue = Left(iCellValue, Len(iCellValue) - 2) 'Убираем два последних знака (непонятно почему появляются лишние знаки)
                
                ActiveDocument.Bookmarks.Add Range:=oTable.Cell(i, 1).Range, Name:=iCellValue 'Вставляем закладку на текст ячейки
            Next i
        End If
    Next oTable
 
End Sub

Sub AddBookmarkToTaskCard()
 
Dim oTable As Word.Table
Dim iCellValue As String, BookmarkName As String
Dim iRowsCount As Integer, i As Long
On Error Resume Next
 
    For Each oTable In ThisDocument.Tables 'Просматриваем в каждой таблице
        If Left(oTable.Cell(1, 1).Range.Text, 11) = "TASK NUMBER" Then
            iRowsCount = oTable.Rows.Count 'Считаем количество строк в таблице
            For i = 2 To iRowsCount
                iCellValue = Replace(oTable.Cell(i, 1).Range.Text, vbCr, "") 'Убираем все переносы в ячейке
                iCellValue = Left(iCellValue, Len(iCellValue) - 2) 'Убираем два последних знака (непонятно почему появляются лишние знаки)
                oTable.Cell(i, 1).Range.Text = iCellValue 'Вставляем текст в ячейку
                BookmarkName = Replace(oTable.Cell(i, 1).Range.Text, "-", "_") 'Меняем знак "-" на "_" для имени закладки
                ActiveDocument.Bookmarks.Add Range:=oTable.Cell(i, 1).Range, Name:=iBookmarkName 'Вставляем закладку на текст ячейки
            Next i
        End If
    Next oTable
 
End Sub