Выкладываю синонимайзер. Для его работы требуется русский MS Word.
Как использовать
- Открыть файл syn.doc.
- Поместить в него нужный текст.
- Запустить Сервис/Макрос/Макросы/Syn2.
Синонимайзер-макрос для MS Word (11 кб) — по этому адресу всегда будет лежать самая новая версия.
Автор: Вован.
Интересное...
Комментарии:
Саня
Оффис 2007 , ошибка Word cannot start the thesaurus
Макрос не работает в 2007-ом ?
Akceptor
У меня на 97м тоже не работает что-то :(
vovan
В 2007-ом я не проверял. Хотя кто-то говорил, что работает. Проверь, есть ли тезаурус — отображается ли список синонимов для любого слова в ворде (правой кнопкой на слове -> Синонимы)
Саня
Все, проблема решилась путем русификации английского оффиса. Установил MUI с русским языком.
Невнимательно прочитал, что для работы требуется русский MS Word.
Спасибо большое
А реально ли самому менять базу синонимов ? Добавлять или удалять слова.
Если да , то как можно это сделать ?
vovan
Даже не знаю, есть ли в ворде встроенная возможность, я такой там не встречал.
Fobiss
Опубликуй, если не сложно, пару примеров текстов (что было и что стало), а то у меня нет Word'а.
vovan
было:
Может быть баян, но всё равно напомню тем, кто знает и уведомлю тех, кто не знает, потому что тема работает. Итак, как заполучить домен с высоким PageRank (https://seoded.blogspot.ru/2007/06/pr6-10.html), используя удалённые аккаунты блогхостингов, работающих на движке WordPress?
стало:
Может быть баян, однако всё равно напомню объектам , кто ведает и осведомлю тех, кто-нибудь не знает, потому что предмет работает. Итак, как заполучить домен с священным PageRank (https://seoded.blogspot.ru/2007/06/pr6-10.html), применяя удалённые аккаунты блогхостингов, функционирующих на движке WordPress?
Fobiss
Спасибо. А сколько процент синонимизации выходит?
У меня самописный есть, на PHP, он получше вроде работает (хотя пример маловат).
Только очень хочется кушать, поэтому я его скоро начну продавать.
vovan
Процент синонимизации можно установить в коде скрипта. Вообще, в этом варианте он пытается подобрать синоним к каждому слову. Да не для каждого слова получается. Результат мне самому не очень нравится — порой такие перлы выдаёт. Ну для сплогов покатит. Скрипт нужно дорабатывать, идеи есть, да нет времени на их реализацию.
Олег
А у меня при запуске макроса пишет:
---------------------------
The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros.
---------------------------
Как активировать макросы?
vovan
Попробуй меню Сервис/Макрос/Безопасность, там выставить низкий уровень безопасности
Николай Громов
даже при выставлении низкого уровня безопасности пишется то же самое сообщение, что макросы "дисаблед".
Stripe
Перегрузи офис.
ee
спасибо за эту штуку. когда искал русскоязычный то видел посты где предлагали много $$ за создание такой штуки, выдвигались всякие идеи.. но ваш намного лучше и удобнее, тем более ворд хорошая ему основа
vovan
Пользуйтесь наздоровье. Если синонимайзер с нуля писать, то действительно дорого получится. Если бы я случайно не узнал, что можно использовать тезаурус ворда, не скоро бы смог сделать что-то подобное.
молчун
та же ошибка:
The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros.
выставил минимальную безопасность, без изменений..
молчун
упс.. сорри..
перезагрузил word.. все заработало.. спасибо :)
vovan
удачи
lamobot
Штука полезная, для того чтобы сначал прогнать текст, который собираюсь отрерайтить, а потом переписать всё заново, так как получается совсем не в тему и не читаемый. :)
vovan
Хорошая идея. Бывает пытаешься отрерайтить хорошо написанный текст, и не получается. А после моего синонимайзера, хочешь - не хочешь, а дорабатываться придётся (если конечно нужен читабельный текст)
Даша
Спасибо, очень полезная штука. давно искала такую.
Результаты, конечно, забавные иногда выходят )))
vovan
А если несколько раз текст прогнать, то вообще бессмыслица получается.
Анонимный
Вот такая ошибка выскакивает.
object variable or block variable not set
MSWord 2003 SP1, Windows XP SP2
vovan
Видимо это как-то связано с ошибками тезауруса. Я заметил, что ворд иногда не может получить доступ к синонимам какого-нибудь слова, а иногда тупо выдаёт ошибку тезауруса. А на других текстах эта ошибка вылетает?
Tina
У меня таже история не хотит работать с моими текстами.С вашим текстом работает,хоть база не ахти, но что-то есть.А с моим текстом нет базы
тот же тезаурус.Как это исравить?
vovan
Тина, пришлите мне свой текст на vovanmozg@gmail.com, я потестирую.
Madcap
Попробывал в действии.
Для приколов и доров наверное сойдёт.
Теперь осталась маленькая деталь - решить проблему самого тезаруса, а именно: как в него добавлять новые слова?
В 2003 офисе такого точно нет. Вообще было бы полезной фишкой, если бы слова для замены брались не только из тезаруса, но и из файла словаря, который в ворде идёт с расширением *,DIC или любого другого файла с базой слов. Об SQL правда с вордом даже мечтать нельзя, хотя было бы и удобнее. В паблике лежат словарные базы в SQL.
А вообще, чтобы получить русскоязычный текст без ошибок и хоть сколько-то приближенный к читаемому - база словаря должна быть 2-5 Гигов.
vovan
Что хорошо в вордовском тезаурусе — синоним подставляется в той же словоформе, что и исходное слово (в большинстве случаев).
Совсем не сложно будет подключить сюда внешнюю базу синонимов, например из текстового файла. Все базы синонимов русского языка, которые я встречал, содержат слова в нормальной форме. Если бы была база синонимов со всеми словоформами, тогда я бы выкинул эту версию вордовского синонимайзера и сделал бы новую на PHP. По сути дела ворд я использую только из-за его тезауруса. Вытянуть бы его оттуда...
Дима Спадов
Полный фарш на выходе получается)
Сейчас работаю над своим синонимайзером, проблему правильности использования синонима в данном контексте решил, ищу хорошую базу синонимов) Интересно, можно ли наковырять ее с самого ворда? Судя по результатам работы вашего синонимайзера, там будет полный треш, но базу однако хотелось бы составить и посмотреть глазками что да как.
vovan
Хорошая база синонимов — это самое ценное, что есть в синонимайзере. С ворда базу можно наковырять, я пробовал: если надо, могу скинуть наработки.
Александр
Здесь прога для выдерания из Word синонимов.
vovan
пойду-ка посмотрю-ка...
djon
тут есть бесплатные базы
про качество ничего сказать не могу
vovan
Спасибо, база неплохо структурирована, много слов. Часто подставляет какие-то нелепые синонимы, примерно как у моего синонимайзера :). В любом случае — полезная находка.
ee
интересно, а можно на основе уже этого существующего сином. в ворде сделать наподобие такого: https://seoded.blogspot.ru/2008/03/blog-post_8.html
главная черта- возможность из выпадающего списка выбирать синоним
vovan
Теоретически это можно сделать, правда не знаю насколько это будет удобно в случае с вордом. Вообще в водре это уже реализовано, только немного в другом виде: щёлкаете правой кнопкой на любом слове и ищете там пункт «Синонимы».
Madcap
Я дегустировал подобные синонимайзеры с выпадающим меню.
И пришёл к выводу, что это неудобно. Вот посудите: в подобных синонимайзерах есть ограничение на количество символов, допустим до 500 знаков в статье (хотя конечно 500 знаков - это ещё не статья), и выбрать 30-40 полей из раскрывающегося списка - не проблема.
А если статья будет нормальной: 4-6 тыс. знаков, то мы просто замучаемся выбирать значения из списка, особенно когда в списке подходящего значения нет. (так бывает: 2-3 слова в списке и ни одно не подходит по смыслу, ибо относятся больше к другой тематике, чем Ваш текст.)
vovan
По-хорошему такой синонимайзер должен иметь возможности подстановки синонимов по-умолчанию.
Анонимный
Спасибо за синонимайзер
Сеошник-полуночникИнтересно
extdiz
вот нашел сервис Синонимайзер
Анонимный
а английской версии нет?
vovan
Точно не уверен, но вроде скрипт работает и с английским языком.
Alex
Работает на всех языках.
Мониторинг Интернета
У меня все работает на ура. 2007 офис (руская версия)
vovan
Интересно, работает ли этот синонимайзер на других языках? Где бы взять какой-нибудь немецкий или итальянский ворд?
Rozen
Как замена этой классной вещи можно использовать перевод текста с русского на любой другой язык и обратно. Вопрос в том, что получится и на сколько будут разниться результаты качества по сравнению с синонимайзером.
vovan
Да, неплохой способ. Для большего эффекта можно использовать разные переводчики.
Абсурдный Людь
Спасибки :)
andron13
благодарствую. очень даже кстати макрос.
Др. О
Замечательная находка! Спасибо автору.
Анонимный
ОГРОМНОЕ СПАСИБО !!!
nastik
Спасибо большое! Классная штука! Автору респект :)
vovan
Всем ещё раз пожалуйста!!!
Паршивый
Спасибо! Полезная вещица))
Иван
Спасибо за такую вещь! Работаю с ней.
кстати, в 2007 офисе все прекрасно работает, я 2007 юзаю!
Alhimick
Огромное спасибо, Vovan! давно искал подобный макрос и вот нашел.
Анонимный
А в каком месте выставить процент слов, на которые он должен синонимы искать. как сделать что бы он каждое слово синонимом заменял
vovan
Надо поменять циферку в строчке
КоличествоПропусков = 1
число 1 означает, что макрос пропускает 1 слово. Другими словами обрабатывает каждое второе. Если надо, чтобы синонимы подбирались к каждому слову надо написать
КоличествоПропусков = 0
Александр
Здравствуйте. А как сделать чтобы когда первое слово в предложении изменяет синонимайзер, чтобы оно было с большой буквы? У меня все такие слова с маленькой буквы.
D@nil
Написал серверный синономайзер
можете попробовать.
vovan
Автоматизма не хватает. По сути дела проблема приблизительно такая же как у моего синонимайзера, сложновато использовать для автонаполнения сайтов.
D@nil
Для автонаполняемых сайтов - скрипт :)
А для Сайтов для людей надо в ручную править.
Search bot
На английском тоже пашет. Надо только тезаурусы переключить. Результат: Было:
The design of your small business website can make or break your home based business. To visitors your website is the face of your business. If they don’t like what they see, they’ll leave without taking the action that you want, weather that’s buying something, signing up for your newsletter, or joining your membership site.
Стало:
The design of your petite business website can build or crack your habitat based trade . To company your website is the face of your business. but they don’t approximating what they see, they’ll abscond without enchanting the exploit that you want, conditions that’s buying incredible , signing awake for your newsletter, or joining your membership place .
vovan
Неплохо. Смысл не понимаю, но похоже, работает приблизительно так же как и для русского. Верно?
SeoGen
А кто-нибудь знает, как из ms word вытащить всю базу синонимов? :)
vovan
медленный способ:
1. Берём базу всех русских слов во всех словоформах.
2. Для каждого слова получаем список синонимов.
Можно написать макрос, а можно обращаться из внешних программ или скриптов.
Примеры обращения к ворду из JavaScript (WSH):
wwo = new ActiveXObject("Word.Application");
doc = wwo.Documents.Add();
wwo.Selection.TypeText("какоенибудьслово");
wwo.Selection.MoveLeft( 2, 1, 1);
wwo.Run ("newSyn");
wwo.Selection.HomeKey(6);
wwo.Selection.EndKey (6, 1);
sList = wwo.Selection.Text;
sList = sList.split("|");
Анонимный
Ой блин )) во мне этот ваш синонимайзер пёрлы выдаёт я валяюсь !!! )) ахаха )) ваще нечитабельный текст ))
Alex D
Написал пару постов про синонимайзер. Обсуждение новой идеи для синонимизации.
Анонимный
Синонимайзер(прога) + база 6000 за 15$
ася *********
LucasOFF
А как в 2007ом запустить синонимайзер?
prox78
Народ, макрос хорошо, но мне кажется было бы гораздо интереснее его исправить. Для такого, чтобы текст был читабельным, нужно часть синонимов, которые явно не подходят убирать сразу, короче, на мой взгляд было бы удобно, если бы макрос коверкал текст следующим образом:
есть текст -- мама мыла ебаную раму
После прогона через макрос -- {мама|мамаша|мать|мамулька|предлок} {мыла|дравила|пидорила|отмывала} {ебанную|ебучую|затраханную|злоебучую|выебанную} {раму|корпус}.
В этой ситуации мы сразу можем выкинуть из текста синоним корпус, ибо он не подходит по смыслу. А из полученного текста можно понаделать кучу различных текстов, которые могут пригодится.
prox78
Народ, ну кто в вижл бейсике рулит? Алгоритм простой, но в синтаксе не разбираюсь, да и как пользоватся прелестями ворда тоже не в курсе, можно конечно во все это вьехать, блин, но у меня на это уйдет очень много времени, а тот, кто знает вижл бейсик, может реализовать данный алгоритм за очень короткое время
prox78
*синтаксисе*
Elena
Инструкция по использованию синонимайзера дана для тех, кто в этом хоть что-то понимает. А можно дать для тех, кто ничего не понимает? Я попробовала пройти через ваши 3 шага у меня получилось на выходе что-то похожее на программу, а что с этим делать дальше, чтобы увидеть преображенный текст?
NoNaMe_909
Открываем синонимайзер ,копируем туда то, что нужно отсинонимизировать...
1) Заходим в Сервис >> Макрос>> безопасность -> самая низкая
2) Сервис >> Макрос>> Макросы...>> Выполнить ....
The end...
vovan
Скинь, пожалуйста сюда то, что получилось на выходе. По идее после запуска макроса должен появиться обработанный текст вместо первоначального.
NoNaMe_909
Вот синонимы твоего поста ))
"Выкини , пожалуйста сюда то, точно получилось на выходе. По идее затем запуска макроса должен явиться обработанный роль вместо первого ."
Да скрипт офигенно работает ! Текст не читабельный, но контент уник :) для free - это то, что нужно ...
Также улыбнула ф-я того, что все синонимы выделяются жирным :)
Вопрос (для своих целей) : что убрать, чтобы синонимы не выделялись жирным ?
p.s заранее спасибо !
vovan
Чтобы обработанные слова не выделялись нужно заменить строку
w.Bold = True
на
' w.Bold = True
NoNaMe_909
Отлично! еще раз спс :)
NoNaMe_909
Автор! помоги плз !
Как сделать так, что бы синонимайзер пропускал ошибки теразиуса (или как его там ) ?
Что нужно дописать в скрипт ?
vovan
Надо добавить обработку ошибок. Я постараюсь в ближайшее время исправить.
NoNaMe_909
Буду оч. благодарен!
Жалко сам не рублю в этой теме ...
Анонимный
Vavan! Поправь всплывающие ошибки в тезаурусе!!! И цены тебе не будет! Такой офигительный макрос... и так нехорошо появляется критическая ошибка. Или это признак шароварности? ;)
vovan
Я обновил архив. Попробуй, кажется ошибок стало меньше.
webmaster
vovan, респектище еще раз, но вот мысля пришла:
проблемы в ворде (с нечитабельностью), я так понимаю, в основном с существительными (точнее с падежными окончаниями).. С глаголами ведь все нормально?
Если, к примеру, глагол в прошедшем времени, то ворд по умолчанию предлагает глагол-синоним в прошедшем времени..
А теперь сам вопрос: можно ли каким-либо образом научить твой скрипт заменять только глаголы??????
webmaster
А если быть точнее: заменять все, кроме существительных.. Это вообще реализовать реально или нет??
Я в программировании слабоват (на уровне ликбеза) - так вот, есть ли какие-нибудь типы переменных или что-нить в этом роде, обозначающие существиельное или глагол, так, чтобы в коде условие поставить не заменять существительные..
vovan
Я когда-то пробовал извлечь из ворда информацию о части речи, но у меня не получилось. Хотя эта информация где-то внутри по-любому хранится. Но как её достать?
WebSam
А где такая информация может храниться, кроме как самого анализатора синтаксиса, и вряд ли это информацию отдается наружу, как ты пытался ее достать?
vovan
Через API ворда. Там довольно много интересных функций.
cereber
kачество любого синонимайзера зависит от словарей.Даже бесплатние с хорошыми базами работают очень хорошо.Те базы что в открытом доступе работают плохо,потому базы нужно писать самому.
Levitt
Подскажите что заменить в коде, чтоб вместо выделение замененого слова жирным, брало доступные синонимы и слово-оригинал в рамки {оригинал|синоним1|cиноним2}
Анонимный
Хрень!!!
Обрабатывает первые 10 слов, а все остальные заменяет на "результате" :)
vovan
Ничего себе! У меня такого не было!
Анонимный
После такого рерайта прямая дорога в баню :)
Вильдам
Спасибо, потестим
Стаф
Супер вещь! Спасибо :)
Елена
Работает и в Ворде 2007! Поработаю, оценю!
Анонимный
Свой словарь можно подключить ?
vovan
Если без программирования — то не знаю. Но макрос можно доработать, чтобы он подключал внешний словарь.
MedvedWJ
Vovan, большое тебе человеческое спасибо.
stroyservis
а у меня работает, отлично!
Fredoss
Vovan, а за что отвечает переменная КоличествоПропусков - какие пропуски имеются в виду?
vovan
Если КоличествоПропусков = 0, это значит, что макрос будет пытаться подобрать синонимы к каждому слову. Если КоличествоПропусков = 1, то будет перепрыгивать через одно слово. И так далее.
Anechka
Мои эксперименты с синонимизацией текста привели к тому, что Яндекс не принял сайт на индексацию. :(
максим
спасибо, вещь стоящая. а есть такой же синонимайзер для wordpressa???
vovan
Где-то встречался такой плагин. Глянь тут https://seoded.blogspot.ru/2008/04/wordpress.html
traficbot
Работает Wor 2007.Cпасибо Vovan, вещица нужная.
Алексей
Как подключить внешнюю базу с расширением .sql.gz ?
vovan
Придётся переписывать макрос. Для работы с подобными базами лучше подойдёт специализированный скрипт. Я встречал в инете бесплатные варианты. Поищите.
Алексей
Спасибо
Анонимный
Автору респект и уважуха. Конечно, нужна доработка напильником. Короч, Афтар, пешы истчо! :)
NikolaZ
Подключение внешнего словаря сделаете?
NikolaZ
Или может редактирование существующего словаря?
vovan
Я не знаю способов редактирования существующего словаря. А подключение внешнего словаря вряд ли имеет смысл делать — в инете встречались скрипты, работающие с внешними словарями
Anfi
Для сателлитов думаю сойдёт =)
Natali
Привет! Очень хочу иметь такую штуку. Но наверное, делаю что-то не так(((
Сервис/Макрос/Макросы/Syn2/выполнить Не получается((( Я офис уже перезагружала несколько раз.
vovan
Попробуйте выделить весь текст, а потом запустить макрос. Также проверьте в настройках, чтобы макросы были разрешены.
кадровик
Ничего не понимаю. Скачал зиповский файл. Там вордовский доекмент. Никаких ссылок и полей ввода там нет. Какой-то текст про казино и все. Что си значит?!
vovan
в начале поста написано, что нужно сделать.
Синонимайзер представляет из себя VBA-макрос. Этот макрос содержится в вордовском документе из архива. Текст про казино - просто образец. Как запускать макрос, тоже читайте в начале поста.
Natali
Ура! Заработало! Это после повторной загрузки синонимайзера с сайта. Старый архиватор и папку Syn удалила и загрузила по-новой. Теперь работает.
Забавно:) Делала рерайт текста по косметологии. Кожу синонимайзер называет кожурой,а
выражение "не стоит сильно прижимать прибор к телу" меняет на "не стоит страшно прижимать блок к остову".
А так, в общем, ничего. Спасибо:)
vovan
Рад, что скрипт помогает
Сержик
Спасибо автору. Тока ест проблемка. Если в тексте попадаются некотоые слова Word сварачивается. Вот некоторые слова " нагретой, уложенной " помогите как это исправить
Евгений
У меня ворд 2003... выдает такую ошидку при нажатии кнопки выполнить:
The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros
Безопасность уменьшал, текст и выделял и нет... Просьба помочь. Спасибо.
vovan
Странно. По идее обычно достаточно выставить низкий уровень безопасности и запустить макрос.
alex
Спасибо автору. Отличная штука. Все работает!
Hammer
Все куль. автору респект и уважуха ;) токо вот чето правда все в нижний регистр перекидывает. это плохонько. а так ваше гуд
Высокотехнологи...
В 2007-м Ворде работает, только качество, честно говоря, не фонтан. На как добавку к различным программам можно, в принципе, использовать. Один плюс, что не надо вручную проверять синонимы.
ИМХО, использовать этот макрос, потом перевести все на английский и обратно, еще раз макрос, немного ручками доработать и все. Получится нормальный уникальный текст.
После использования макроса:
В 2007-м Ворде работает, только качество, правдиво говоря, не фонтан. На как добавку к разнообразным программам можно, в принципе, употреблять . Один достоинство , что не надо вручную проверять синонимы.
ИМХО, употреблять этот макрос, испариной перевести цельное на британский и вспять , еще однажды макрос, немного ручками доработать и полные . Получится нормальный уникальный текст.
После перевода:
В 2007 Слово работает, только качество, правдиво разговор, не фонтан. На, поскольку добавка к различным программам может использоваться, в основном. Одно преимущество, что не необходимо проверить синонимы вручную.
ИМХО чтобы использовать этот макрос, пот, чтобы перевести интеграл на британском и обратном, все еще однажды макрос, немного закончить ручки и полный. Нормальный уникальный текст окажется.
Теперь осталось немного ручками.
Анонимный
Ручками говоришь :) за это время я своими словами перескажу этот абзац :) и получу уникальный и читаемый текст.
Пример: Макрос работает конечно в word 2007, однако качество оставляет желать лучшего и использовать для синонимизации текста этот макрос можно лишь как дополнение к программам-синонимайзерам. Рекомендовать данный макрос можно, разве, что в сочетании с дальнейшим автопереводом на английский, а затем обратно, и опять же после чего применить данный макрос. В итоге вы сможете получить уникальный текст для ГС ;)
kerrnel
Классная штука. Спасибо.
DAN
Не получилось сделать такую штуку
wwo = new ActiveXObject("Word.Application");
doc = wwo.Documents.Add();
wwo.Selection.TypeText("какоенибудьслово");
wwo.Selection.MoveLeft( 2, 1, 1);
wwo.Run ("newSyn");
wwo.Selection.HomeKey(6);
wwo.Selection.EndKey (6, 1);
sList = wwo.Selection.Text;
sList = sList.split("|");
Можно подробно описать что делает каждая из строк начиная с 4 строчки. Тогда думаю разбирусь что дальше делать :-)
Анонимный
Второй день ищу где в 2007 запустить - Сервис/Макрос/Макросы/Syn2. Разжуйте плиз. Спасибо!
vovan
не подскажу, потому что запускать в 2007 не пробовал и доступа к нему не имею.
Анонимный
Ок! Разобрался. Может кому понадобися alt + F8 и выбираем syn2
vovan
Объявляю благодарность!!!
koksa
спасибо большое за этот макрос.
Kostya
Спс за хороший мак и советы
николай
Вещь хорошая, спасибо, но может быть кто поскажет где взять синонимайзер с русскими базами для wordpress или хотябы качественную базу синонимов для feedmaster
Ashlander
База и синонимайзер отдельно в инете лежит. Ссылку так сказать уже не помню, но на тот момент когда я тестил синонимайзер с базами под WP - получался один бред.
sens081086
Не сказал бы что это решение даст более огромное преймущество перед спец-синомайзерами.
syn-master
Синонимайзер
- Встроенный блог-клиент
- Высокая скорость обработки текста
- Внешний словарь синонимов
- Слежение за буфером обмена
- Обработка и публикация одним нажатием
- Перемешивание абзацев
- Постинг по протоколу XML-RPC
Словарь синонимов
- 70 000 слов и словоформ
- обработка слов и фраз
- синонимизация до 90%
- почти 100% читабельный текст
Анонимный
не открывается ВАШ сайт
Александр Мирный
Не плохо, но еще есть над чем работать
uglik
Блин что то у меня синонимизатор рабоать перестал. Винду переустановил и не рабоатет ни на 2007 ни на старм....что это может быть выбивает на оштбку
masterplus
У меня такаже проблема, месяц ужо как.
Подозреваю, что с "ORFO 9.0" экспериментировал и доэкпериментировался :(
Анонимный
Замечательная идея.
И легко переделать в Vb.Net чтобы не маяться с ручной работой в ворде
Вот идея:
Imports Microsoft.Office.Interop
Public Class Form1
Dim word As New Word.Application
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rnd As New Random(CInt((Now - Now.Date).TotalSeconds))
' word.Activate()
Dim doc As Word.Document = word.Documents.Add
doc.Range.Text = Me.TextBox1.Text
Dim words As Word.Words = word.ActiveDocument.Words
For i As Integer = 1 To words.Count
Dim word As Word.Range = words(i)
Dim si As Word.SynonymInfo = word.SynonymInfo
If si.MeaningCount > 0 Then
Dim synList As Array = si.SynonymList(1)
Dim rndIndex As Integer = rnd.Next(1, synList.Length)
Dim synonym As String = synList(rndIndex).ToString
word.Text = synonym & " "
End If
Next
Debug.Print(doc.Range.Text)
End Sub
End Class
vovan
я как-то пробовал сделать WSH-скрипт, который обращается к объектам ворда, но с наскоку получилась только полу-работающая версия и я забил на это дело. Работы полно было. А вынести функционал из ворда - это, конечно, разумная идея. Так можно и процесс автоматизировать для обработки больших объёмов.
Vincent
В 2007 не работает. Просто удаляет некоторые слова.
Анонимный
В OpenOffice не работает :(
Пишет:
Ошибка времени выполнения BASIC.
'51'
Внутренняя оштбка ..
Turbo
Ворд, конечно, хорошо, но хотелось бы и вариантик на пхп...
Анонимный
Тут *** написан какраз на php
Виктор
Зацените, пожалуйста, мой скрипт ***
Про скорость можно не писать, сам вижу :) - работает не быстро
Есть возможность выбора одного из вариантов подобранных синонимов для слова.
Возьму приведенный тут пример:
"Может быть баян, но всё равно напомню тем, кто знает и уведомлю тех, кто не знает, потому что тема работает. Итак, как заполучить домен с высоким PageRank (https://seoded.blogspot.ru/2007/06/pr6-10.html), используя удалённые аккаунты блогхостингов, работающих на движке WordPress?"
на выходе получили:
"Умеет употреблять баян, а всё ровно подскажу книг, кто умеет а извещу тех, кто не умеет, потому что жизнь делает. Следовательно, вроде заполучить домен с высоким PageRank (https://seoded.blogspot.ru/2007/06/pr6-10.html), наслаждаясь удалённые аккаунты блогхостингов, делающих на движке WordPress?"
Serg
Синонимайзер это 30% успеха, остальные 70% - это адекватная база синонимов... в инете куча хлама перекопал все..., решил купить, я покупал здесь - дешевле не видел...Текст действительно читабельный...
А лучше купить прогу с обновлениями и базами, палюбому окупиться...
Анонимный
Serg, стесняюсь спросить, а Ваша база собрана случайно не этой програмкой, ***
Xstroy
*** неплохо синонимизирует.
Применяю для предварительного рерайта.
Bruce
Что-то у меня тож синонемайзер на пашет(
Анонимный
Интернет-аукцион «Мой аукцион» – лучший аукцион Украины! Бесплатен для покупателей и продавцов. На этом аукционе можно продавать и покупать любые товары.
VarrkaN
выдаёт следующую ошибку:
The macros in this project are disable. Please refer to the online help or documentation of the host application to determine how to enable macros
Непонятно, в чём причина, офис 2003 стоит
Sibir
Всё работает, спасибо
0 коммент.:
Отправить комментарий
Ваш комментарий появится в блоге после проверки администратором