Таблица в Word

[Robot404]

Есть таблица. В первой колонке есть набор фамилий.
2017-02-07_215911.png
Надо сделать так, чтобы макрос поочередно выделял слова в каждой ячейке из колонки 1 и присваивал им закладки с названиями из колонки 2.

Sub Макрос1()
    Selection.Tables(1).Cell(1, 1).range.text    
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="R_001"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Моя проблема заключается в том, что не могу сделать это даже для 1 ячейки. Макрос не работает. Подскажите варианты решения проблемы.
Заранее благодарю!!!!

[liss98]

макрос может не подходить под операционную систему

[Serge_Bliznykov]

Сообщение от liss98

макрос может не подходить под операционную систему

бред.