Полученное сообщение об ошибке обычно вызвано отсутствием оператора End Sub или End Function. Тем не менее, ваш размещенный код был в порядке в этом отношении.
Двумя проблемами, которые требовали исправления, было объявление диапазонов и настройка диапазона. Вот пересмотренный код, который работает.
Sub SelectTextBetweenBookmarks() Dim rngStart As Range, rngEnd As Range Set rngStart = ActiveDocument.Bookmarks("START").Range Set rngEnd = ActiveDocument.Bookmarks("END").Range Selection.SetRange rngStart.Start, rngEnd.End End Sub
КСТАТИ - Добро пожаловать на форум, и когда у вас есть возможность, посмотрите на Кодекс поведения форума . В нем много полезных информационных ссылок для получения максимальной отдачи от форума.