Набрел на этот форум, нашел много полезного.
Сам интересуюсь 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
Спасибо, получилось.