Iska, Огромное спасибо!
Но я раньше с макросами не работал, даже не знаю как правильно... не подскажете?
Делаю так :
1- Открываю нужный документ
2- Макросы- создать
3- Вставляю приведенный вами скрипт в окно
4 - Жму значок записи(Runsub/UserForm)
5- У меня открывается еще один пустой документ word
6- Навожу на ThisDocument - жму Run Macro далее run... открывается еще один документ(пустой).
7- В пустой документ копирую текст - Макросы -выполнить. Опять пустой документ.
... вроде как что то получилось, но не по алфавиту.
![](http://s019.radikal.ru/i639/1205/22/9c11de1d2580t.jpg)