офф: макрос для ворда gen.

[dron1]

Подскажите, пожалуйста, есть ли в Ворде макрос, который может удалить все повторяющиеся элементы на странице? Предложения, слова, цифровые коды, например

Нужен макрос, который сам определит, какие элементы повторяются и удалит все эти элементы, оставив по одному экземпляру повторяющихся элементов (чтобы повторений не было вообще, только уникальные слова).

[Armagedo]

Главное - это "слово", все остальное - набор слов :)
Наскидку
Через VBA рисуете программу, изначально вижу как решето Эратосфена, т.е. берете текст, берете первое слово (набор символов между пробелами) ищете все дальнейшие вхождения и удаляете их. И так далее в цикле - берете второе - удаляете все по тексту равные второму и т.д.
На выходе - все неудаленные, а значит уникальные "слова".

:))))

[dron1]

Очень долго так получится, у меня 700 страниц текста, самому искать нереально. Остается только поиск и замена (на пробел), но опять же долго... Хорошо б, чтобы макрос сам распознал повторения и удалил...)

[Armagedo]

Кто вам говорит что самому????
Есть свойство Selection, например, у ActiveDocument.
А у Selection есть свойство Text.
В ней и выполняте поиск и удаление ПРОГРАММНО.
По типу решета Эратосфена, как я и указал.

По поводу "долго" - нормальному компу, при нормально написанной программе ваши 700 страниц - работы на 2 минуты. :))

Вообщем - дерзайте :))

[dron1]

к сожалению, с Visual Basic я ни разу не работал, если вы о нем говорите...(

[varism]

Насколько я понял, для вас не имеет значение сохранение расположения самих слов - важно только получить в результате набор неповторяющихся слов?

[dron1]

всем спасибо, решение найдено) да, порядок слов не имеет значения. Текст был скопирован в эксель, отфильтрован в сводной таблице в экселе и заново вставлен в ворд в текстовом формате)