1 Тема от AndreyGu

  • AndreyGu
  • рядовой
  • Неактивен
  • Зарегистрирован: 16.01.2016
  • Сообщений: 1

Тема: Макрос для формирования словаря текста

Приветствую!

Требуется создать с "0" или модифицировать имеющийся (при заинтерсованности вышлю код) макрос, который умел бы:

По нажатии комбинации клавиш:
1. выделять цветом по всему тексту выделенный в данный момент фрагмент;
+
2. копировать выделенный фрагмент в новую строку таблицы в другом файле (Word или Excel).

Т.е. макрос должен помочь автоматизировать процесс выборки фраз из текста / формирование словаря текста.

Буду очень признателен за помощь в этом вопросе.
Заранее спасибо!

2 Ответ от МВТ

  • МВТ
  • сержант
  • Неактивен
  • Зарегистрирован: 04.04.2016
  • Сообщений: 27
  • Поблагодарили: 12

Re: Макрос для формирования словаря текста

Я решал задачу с помощью словарей (для создания собственно словаря) и регулярных выражений (для выделения одинаковых фрагментов кода). Создается впечатление, что при значительных объемах информации, выделение фрагмента текста может вызвать подтомаживание, но более быстрого способа пока не нашел. К сообщению прикладываю файл, файл эксель, который будет содержать словарь, создается автоматически в той же папке, в которой находится вордовский. Так же прилагаю фрагмент кода, который отвечает за выделение, возможно кто-нибудь сможет его переработать для большей скорости

    Application.ScreenUpdating = False
    With ActiveDocument
        Set Regexp = CreateObject("VBScript.RegExp")
        Regexp.Global = True
        Regexp.Pattern = Selection.Text
        Set Match = Regexp.Execute(.Range.Text)
        .Range.Font.ColorIndex = wdAuto
        For i = 0 To Match.Count - 1
            .Range(Match(i).firstindex, Match(i).firstindex + Match(i).Length).Font.ColorIndex = wdRed
        Next
    End With
    Application.ScreenUpdating = True

3 Ответ от МВТ

  • МВТ
  • сержант
  • Неактивен
  • Зарегистрирован: 04.04.2016
  • Сообщений: 27
  • Поблагодарили: 12

Re: Макрос для формирования словаря текста

Кажется, файл не прикрепился. Вынужден отметить, что форум вообще не очень удобен для пользования  sad

Post's attachments

Словарь.docm 22.18 Кб, 3 скачиваний с 2016-04-13 

You don't have the permssions to download the attachments of this post.