Word VBA: Добавить закладки вокруг выделенного фрагмента

[Maxx]

Набрел на этот форум, нашел много полезного.
Сам интересуюсь VBA, но только начал изучать. Сейчас пытаюсь решить проблему: мне надо установить две закладки - в начале выделенного фрагмента текста и в конце. Подскажите пожалуйста решение.

[Администратор]

Sub Макрос1()

    Dim rng As Range
   
    '1. Вставка закладки перед выделенным фрагментом.
    '1) Создание объекта "Range" на основе выделенного фрагмента.
        ' С помощью объекта "Range" можно поставить закладку в нужное место.
        ' Duplicate используется, чтобы наши действия не изменяли исходный "Range".
        ' В данном случае "Duplicate" не нужен, сделан просто так.
    Set rng = Selection.Range.Duplicate
    '2) Изменение объекта "Range", а именно превращение его в точку вставки.
    rng.Collapse Direction:=wdCollapseStart
    '3) Вставка закладки.
    rng.Bookmarks.Add "Закладка1"
   
    '2. Вставка закладки после выделенного фрагмента.
    Set rng = Selection.Range.Duplicate
    rng.Collapse Direction:=wdCollapseEnd
    rng.Bookmarks.Add "Закладка2"

End Sub

[Maxx]

Спасибо, получилось.