Быстродействие VBA

[Step_UA]

внес незначительные изменения ...

[Skif-F]

И ещё один вариантик.
... в нём конструкцию With Selection можно будет выкинуть.
Признаюсь честно, функцию сортировки взял из:
Род Стивенс "Готовые алгоритмы на Visual Basic"

[Skif-F]

Сообщение от Step_UA

внес незначительные изменения ...

Значительные! У Sasha_Smirnov в текст вставлялся полный перечень найденных буквосочетаний со всеми повторами, а не единичные вхождения. Не совсем чистый эксперимент. Хотя, если формализовать задачу и вспомнить что конкретно нужно, то программу можно ещё упростить.

[Sasha_Smirnov]

Уж да! Более чем в 100 раз: 0,17 секунды против моих 18 (в папа-мама 4.doc); сортировку тоже испытал: примерно 0,3 секунды на весь роман «Евгений Онегин» (где по 4)!!!

В папа-мама 3.doc (который и смотеть-то теперь незачем) было всего в 2: 17—19 и соответственно то 9, то 10.

Компьютерный «полигон» на этот раз другой: 2,28 МГц, ОЗУ 1 Гб — но главное соотношение!

Сообщение от Skif-F

...заменил поиск по .Find на работу с символами.
На 4 символах даёт двухкратный рост производительности.

Ну после 100-кратного это всё цветочки! А я-то про файнд думал, что круче некуда...

[Skif-F]

.Find - это универсальное средство, разработанное совсем для других нужд. Медленная скорость работы связана не с плохими программистами, а со структурой документа в Ворде и заложенными в эту команду функциями.
Кстати, очень много времени в начальном варианте уходило на операции .TypeText и .Sort, а также на перебор текста "по букве", не вынимая текст из объектов.