Пожауйста помогите студентке гуманитарного вуза

[Maria_Babkina]

shanemac51, огромное спасибо, что откликнулись!
Открыла текст в excel. Затем вставила макрос в шаблон. Нажала выполнить.
К сожалению ошибка 424.
А как должен работать данный макрос? Куда должны записываться выделенные из текста имена?

[shanemac51]

макрос надо вставлять в ворд
а екселем потом итоги считать и откидывать ненужные и с падежами воевать

[Maria_Babkina]

Открыла файл вордом, запустила макрос.
Никаких ошибок нет, но и ничего не происходит.
Пожалуйста, подскажите, как должен работать данный макрос?

[shanemac51]

мой грех (забыла исправить)
--откройте ваш word-файл
--выделить все
--запустите макрос alt+f8+выполнить
--
создается файл slovar140930.txt в каталоге, в котором находится вас документ

===
его то и надо открывать екселем

[Maria_Babkina]

shanemac51, большое спасибо!
Макрос работает, создается файл со словами, написанными с большой буквы.
Не могли бы вы бодасказать логику работы макроса? Он выписывает все слова длиной более 1 знака в отдельный файл? Или выборка происходит по другому критерию? Возможно ли изменить этот критерий так, чтобы макрос выбирал лишь те слова, написанные с большой буквы, которые стоят рядом?

Я нашла макрос, который выписывает все найденные слова в отдельный файл, кроме тех, которые записаны в базу данных.
Если заменить внутри макроса критерий поиска
БЫЛО

myFind.Text = "<[А-ЯЁA-Za-z][А-ЯЁа-яёA-Za-z]@> "

СТАЛО

myFind.Text = "<[А-ЯЁA-Za-z][А-ЯЁа-яёA-Za-z]@> <[А-ЯЁA-Za-z][А-ЯЁа-яёA-Za-z]@>"

то макрос начинает выбирать лишь слова, написанные с большой буквы, но стоящие рядом.
К сожалению, он выбирает не только имена, но все слова.
ПОжалуйта, подскажите команду, которой можно было бы изменить регистр слова. Например, если слово есть в базе данных, то его переписать с маленькой буквы...

[shanemac51]

я выбираю более 1 слова подряд с большой буквы(можно и латиницу и кирилицу) и суммарной длиной более 5 символов
цифры не отбрасываются

по вашему макросу получила уплотненный и сортированный список слов -- не более
Адрес
Антипов
Антон
Архитектор
Василием
Василий
Вчера
Зайцева
Ольга
Петров
Петровым
Позднее
Регистрация
Репутация
Сообщений
Участник
Цитата

[shanemac51]

Добавила латиницу

Архитектор Василий Петров завершил проект это здания в 1953 году. Под его началом трудились многие инженеры и проектировщики, среди них Ольга Зайцева, Антон Антипов. Позднее, Ольга Зайцева участвовала и в других проектах вместе с Василием Петровым
TOM KRUZ, KARL MARKS латиница
В результате хочется получить:


Архитектор Василий Петров
Ольга Зайцева
Антон Антипов
Ольга Зайцева
Василием Петровым
TOM KRUZ
KARL MARKS

[shanemac51]

после войны с цифрами и точками и неразрывным пробелом(звездочка)

Архитектор Василий Петров завершил проект это здания в 1953 году. Под его началом трудились многие инженеры и проектировщики, среди них Ольга Зайцева, Антон Антипов. Позднее, Ольга Зайцева участвовала и в других проектах вместе с Василием Петровым
Tom Kruz, Karl Marks латиница
В результате хочется получить:А1 ППП2 РРР4 ЛЛЛ6
ЯЯЯ7 ZZZ2
А.Иванов
А.*А.*Иванова
=====================

Архитектор Василий Петров
. Под
Ольга Зайцева
Антон Антипов. Позднее
Ольга Зайцева
Василием Петровым
Tom Kruz
Karl Marks
А. Иванов
А. А. Иванова

[Maria_Babkina]

shanemac51 может быть вы знаете, как изменить макрос, который я Вам прислала так, что если выбранное слово из текста совпадало со словом из базы данных, то оно записывалось бы в текст с маленькой буквы?
Таким образом я хочу оставить в тексте только имена и фамилии, написанными с большой буквы.

Например:
Текст --> Высшее образование дистанционно! Открыт набор. Государственный Диплом
База данных --> Открыт; Диплом

В итоге получу текст --> Высшее образование дистанционно! открыт набор. Государственный диплом

[shanemac51]

есть огромный художественный текст

---это ваши слова--------

может все же удобнее сначала выбрать 1000-2000 слов в текстовик(сравнительно маленький) и работать с ним