Оставить заявку

Выделить определенную информацию

Внимание! У нас сбои с почтовым сервером! Если не пришло письмо о регистрации или смене пароля напишите нам на info@techwriters.ru! 
@twriters
 obmen_soobsheniyami.pngчат для технических писателей в Telegram

 Зарегистрируйтесь
Страницы: 1
RSS
Выделить определенную информацию
 
Добрый день, форумчане!
Мне нужно извлечь из текста определенную информацию и я не придумал  ничего лучше, чем использовать для этого Word. К сожалению, моих навыков  недостаточно, чтоб выполнить эту задачу. Надеюсь, тут мне помогут.)
Собственно сама задача: нужно выделить все символы от одного слова до другого. 277 раз.
Если так сделать нельзя, то тогда нужно выделить все строки, где есть определенное слово.
Заранее спасибо!
 
Цитата
Собственно сама задача: нужно выделить все символы от одного слова до другого. 277 раз.
Приведите, пожалуйста, пример исходного текста и результата.
Также: что значит "выделить"? Жирным шрифтом? Курсивом? Цветом?
Изменено: Alex_Gur - 13.10.2020 11:32:42
Если у вас появятся вопросы, пожалуйста, обращайтесь - будем думать вместе!
 
Так как пока не получил от Вас ответа, выкладываю макрос, который выделяет жирным шрифтом все символы между словами "поблагодарить":
Код
Sub SearchInText()

  Dim bSel, eSel As Long
  Dim bSel1, eSel1 As Long
  Dim rng As Range
  
  bSel = ActiveDocument.Content.Start
  eSel = ActiveDocument.Content.End
  Set rng = ActiveDocument.Range(Start:=bSel, End:=eSel)
  rng.Select
  bSel1 = 0
  eSel1 = ActiveDocument.Content.End
  
  Do While True
    With Selection.Find
      .Text = "поблагодарить"
      If .Execute Then
          bSel = Selection.Start
          eSel = Selection.End
          'MsgBox (CStr(bSel) + " " + CStr(eSel))
          
          If eSel1 <> ActiveDocument.Content.End Then
            bSel1 = eSel1
            eSel1 = bSel
            'MsgBox (CStr(bSel1) + " " + CStr(eSel1))
            Selection.Start = bSel1
            Selection.End = eSel1
          Else
            bSel1 = 0
            eSel1 = bSel
            'MsgBox (CStr(bSel1) + " " + CStr(eSel1))
            Selection.Start = bSel1
            Selection.End = eSel1
          End If
          Selection.Font.Bold = wdToggle
          
          eSel1 = eSel
          
          Selection.Start = bSel
          Selection.End = eSel

      Else
          'MsgBox ("Поиск завершен")
          bSel1 = eSel1
          eSel1 = ActiveDocument.Content.End
          'MsgBox (CStr(bSel1) + " " + CStr(eSel1))
          Selection.Start = bSel1
          Selection.End = eSel1
          Selection.Font.Bold = wdToggle
          ' Снятие выделения
          Selection.MoveRight Unit:=wdCharacter, Count:=1
          ' Выход из цикла и завершение работы макроса
          Exit Sub

      End If
    End With
  Loop
End Sub



Пример исходного файла для преобразования прилагаю.
Изменено: Alex_Gur - 13.10.2020 13:32:56
Если у вас появятся вопросы, пожалуйста, обращайтесь - будем думать вместе!
Страницы: 1
Читают тему

Рейтинг@Mail.ru