1 Тема от gaddenis

  • gaddenis
  • рядовой
  • Неактивен
  • Откуда: Новый Уреной
  • Зарегистрирован: 16.02.2011
  • Сообщений: 5

Тема: Выделение текста в кавычках ""

Здравствуйте! Подскажите, пожалуйста, каким образом можно выделить текст от начала кавычек  и до конца т.е. "пришла весна" нужно, что бы выделяемой фразой была пришла весна. Текст всегда разный

2 Ответ от Alex_Gur

  • Выделение текста в кавычках ""
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Выделение текста в кавычках ""

Формируется и выделяется диапазон Range между двумя закладками (после первой кавычки (атрибут Start) и перед второй кавычкой (атрибут End)). Получилось примерно так:

Sub SelectionInBrackets()
    Dim bm As Bookmarks
    Set bm = ActiveDocument.Bookmarks

    'Поиск следующей кавычки
    With Selection.Find
        .Text = """"
        .Replacement.Text = ""
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    'Простановка первой закладки после первой кавычки
    bm.Add ("a")

    'Поиск следующей кавычки
    With Selection.Find
        .Text = """"
        .Replacement.Text = ""
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    'Простановка второй закладки перед второй кавычкой
    bm.Add ("b")

    'Выделение текста между первой и второй закладками
    ActiveDocument.Range(Start:=bm("a").Start, End:=bm("b").End).Select
End Sub

К сожалению, этот макрос не различает открывающей и закрывающей кавычек. Поэтому нужно следить, чтобы курсор стоял до открывающей кавычки, а не внутри кавычек.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.