Отобрать слова, начинающиеся с заглавных букв

[Скрипт]

caute, модулю, в котором находятся слова-исключения, нужно дать имя "ModuleList", а процедуре, которая в нём находится, нужно дать имя "Procedure_1".


Примечание

Модули можно левой кнопкой мыши перетаскивать из одного VBA-проекта - в другой.

[viter.alex]

Почему не использовать предметный указатель?

[caute]

Ура! Заработало!
Обработал большую книжку (миллион двести тыс. знаков с пробелами) за 30 сек. Жаль, только сноски не обрабатывает, ни концевые, ни постраничные. Можно их добавить еще?
Спасибо!

Почему не использовать предметный указатель?

Вот этот полученный список надо перешерстить, выбрав нужные имена из списка, а потом загнать их в указатель Word. Макрос был нужен как раз для отбора в тексте имен для указателя.
А еще где-то у меня был макрос, который позволяет предметный указатель из списка слов делать с номерами страниц, на которых данные слова из списка встречаются. Правда, тот макрос глючный был какой-то.

[Скрипт]

Прежний модуль "ModuleMain" удалите, а этот модуль импортируйте, для этого:

1. разархивируйте архив;
2. перейдите в программу "VBA" - File - Import File... - выберите файл, который только что разархивировали, - Открыть;
3. в "VBA" появится модуль "ModuleMain".

Примечание

Если данных будет очень много, то макрос надо будет усовершенствовать. Например, объект "Dictionary" при 300 тысячах элементах (может ошибаюсь - точно не помню) уже начинает медленно работать при добавлении в него новых элементов.
И в конце я помещаю все данные из "Dictionary" в одну переменную с типом данных "String" - может не хватить места в этой переменной.
Но эти проблемы не страшны, т.к. вы будете знать о том, что у вас что-то не то: с "Dictionary" макрос будет просто медленно работать, а со "String" выскочит ошибка. Так что ошибку вы не пропустите.

[caute]

Теперь идеально. Еще раз благодарствую!
Добавил в макрос список игнорируемых слов, русских и английских. Может, кому-то еще пригодится, прикрепляю.