Как выбрать текст между двумя «закладками» в Word VBA?

376
Ann Donahue

Я использовал код, который вы предоставили для этого предыдущего вопроса, но я получаю сообщение об ошибке компиляции: 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 

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

2

1 ответ на вопрос

1
Rich Michaels

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

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