Word VBA: Установить закладки до и после выделения

[Svetik]

Добрый вечер! А у меня тоже есть вопрос про закладки. Подскажите, как автоматически установить в начале выделенного фрагмента текста закладку Закладка1 и в конце Закладка2?

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

Sub Макрос()
   
    Dim rng As Range
   
    '1. Вставка закладки слева.
    Set rng = Selection.Range.Duplicate
    rng.Collapse Direction:=wdCollapseStart
    rng.Bookmarks.Add Name:="Закладка1"
   
    '2. Вставка закладки справа.
    Set rng = Selection.Range.Duplicate
    rng.Collapse Direction:=wdCollapseEnd
    rng.Bookmarks.Add Name:="Закладка2"
   
End Sub

[Svetik]

Большое спасибо!