2

Я использовал код, который вы предоставили для этого предыдущего вопроса, но я получаю сообщение об ошибке компиляции: Sub или Function не определены. Я использую VBA 7.1 и Word 2016.

Sub SelectTextBetweenBookmarks()

    Set rngStart = ActiveDocument.Bookmarks("START").Range
    Set rngEnd = ActiveDocument.Bookmarks("END").Range

    Range(rngStart.Start, rngEnd.End).Select

End Sub

Спасибо за помощь.

|источник

1 ответ1

1

Полученное сообщение об ошибке обычно вызвано отсутствием оператора 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

КСТАТИ - Добро пожаловать на форум, и когда у вас есть возможность, посмотрите на Кодекс поведения форума. В нем много полезных информационных ссылок для получения максимальной отдачи от форума.

|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .