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

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

    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