Статьи из блога

Статьи из блога

Как выделить текст от начала документа до искомого фрагмента текста

Рубрика: Макросы, Вопрос-Ответ
Метки: |
Вторник, 21 октября 2008 г.
Просмотров: 9613
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

Анатолий спрашивает:

Как программно выделить часть текста от начала документа до найденного фрагмента? Он может быть где угодно.

Вот образец рабочего макроса. При запуске макроса происходит поиск в документе определенного текста (в коде это строка "Искомый текст") и выделяет весь текст от найденного фрагмента до начала документа. Сам искомый фрагмент в выделение не входит.

Sub strSelect()
'Выделение текста от найденного фрагмента до начала документа
'ищет первое вхождение искомой строки
Dim switchFound As Boolean ' найдено или не найдено
Selection.Find.Execute _
   findText:="Искомый текст", _
   Forward:=True, _
   Wrap:=wdFindContinue
switchFound = Selection.Find.Found
If switchFound = False Then
   MsgBox "Не найдено"
Else
   Selection.Collapse wdCollapseStart
   Selection.StartOf Unit:=wdStory, Extend:=wdExtend
End If
End Sub
twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 4

  1. Елена
    23.10.2008 в 02:20 | #1

    А не проще ли установить курсор в начало искомого фрагмента текста, а затем нажать CTRL+SHIFT+HOME?

  2. 23.10.2008 в 06:08 | #2

    Елена, не проще, если неизвестно, где находится искомый фрагмент.

    К тому же в вопросе было требование сделать это программно.

  3. наташа
    21.03.2009 в 15:28 | #3

    как выделить от искомого "текст1" до "текст2"

  4. 21.03.2009 в 15:43 | #4

    как выделить от искомого "текст1" до "текст2"

    Вот здесь обсуждается этот же вопрос. Есть макрос.

    http://wordexpert.ru/page/poisk-slova-i-udalenie-strok-nad-nim#comment-29477

Оставьте комментарий!

(обязательно)

^ Наверх