я использовал код, который вы предоставили для этого предыдущего вопроса, но я получаю ошибку компиляции: Sub или Function not defined. Я использую VBA 7.1 и Word 2016.
KompSub SelectTextBetweenBookmarks()
Set rngStart = ActiveDocument.Bookmarks("START").Range
Set rngEnd = ActiveDocument.Bookmarks("END").Range
Range(rngStart.Start, rngEnd.End).Select
End Sub
Спасибо за помощь.
3047
полученное сообщение об ошибке обычно вызвано отсутствием оператора 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
кстати-Добро пожаловать на форум и когда у вас будет возможность, взгляните на форум кодекс поведения. Он имеет много хороших информационных ссылок в нем для получения максимальной отдачи о форуме.
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
