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

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

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

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

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

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
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

Еще записи по вопросам использования 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

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

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

^ Наверх