Форум по VBA и MS Office

Добрый вечер! А у меня тоже есть вопрос про закладки. Подскажите, как автоматически установить в начале выделенного фрагмента текста закладку Закладка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

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