Оффис 2007 , ошибка Word cannot start the thesaurus

Макрос не работает в 2007-ом ?

Все, проблема решилась путем русификации английского оффиса. Установил MUI с русским языком.
Невнимательно прочитал, что для работы требуется русский MS Word.

Спасибо большое

А реально ли самому менять базу синонимов ? Добавлять или удалять слова.
Если да , то как можно это сделать ?

Опубликуй, если не сложно, пару примеров текстов (что было и что стало), а то у меня нет Word'а.

А у меня при запуске макроса пишет:

---------------------------
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.
---------------------------

Как активировать макросы?

спасибо за эту штуку. когда искал русскоязычный то видел посты где предлагали много $$ за создание такой штуки, выдвигались всякие идеи.. но ваш намного лучше и удобнее, тем более ворд хорошая ему основа

та же ошибка:

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.. все заработало.. спасибо :)

Штука полезная, для того чтобы сначал прогнать текст, который собираюсь отрерайтить, а потом переписать всё заново, так как получается совсем не в тему и не читаемый. :)

Спасибо, очень полезная штука. давно искала такую.
Результаты, конечно, забавные иногда выходят )))

Вот такая ошибка выскакивает.
object variable or block variable not set
MSWord 2003 SP1, Windows XP SP2

У меня таже история не хотит работать с моими текстами.С вашим текстом работает,хоть база не ахти, но что-то есть.А с моим текстом нет базы
тот же тезаурус.Как это исравить?

Попробывал в действии.
Для приколов и доров наверное сойдёт.
Теперь осталась маленькая деталь - решить проблему самого тезаруса, а именно: как в него добавлять новые слова?
В 2003 офисе такого точно нет. Вообще было бы полезной фишкой, если бы слова для замены брались не только из тезаруса, но и из файла словаря, который в ворде идёт с расширением *,DIC или любого другого файла с базой слов. Об SQL правда с вордом даже мечтать нельзя, хотя было бы и удобнее. В паблике лежат словарные базы в SQL.
А вообще, чтобы получить русскоязычный текст без ошибок и хоть сколько-то приближенный к читаемому - база словаря должна быть 2-5 Гигов.

Полный фарш на выходе получается)
Сейчас работаю над своим синонимайзером, проблему правильности использования синонима в данном контексте решил, ищу хорошую базу синонимов) Интересно, можно ли наковырять ее с самого ворда? Судя по результатам работы вашего синонимайзера, там будет полный треш, но базу однако хотелось бы составить и посмотреть глазками что да как.

тут есть бесплатные базы - http://www.blogka.ru/dictfree.php

про качество ничего сказать не могу

интересно, а можно на основе уже этого существующего сином. в ворде сделать наподобие такого: _megaseo.biz/sinonimajzer-russkogo-yazyka/
главная черта- возможность из выпадающего списка выбирать синоним

Спасибо за синонимайзер

Интересно

вот нашел сервис Синонимайзер blogka.ru

а английской версии нет?

У меня все работает на ура. 2007 офис (руская версия)

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

Спасибки :)

благодарствую. очень даже кстати макрос.

Замечательная находка! Спасибо автору.

ОГРОМНОЕ СПАСИБО !!!

Спасибо большое! Классная штука! Автору респект :)

Спасибо! Полезная вещица))

Спасибо за такую вещь! Работаю с ней.
кстати, в 2007 офисе все прекрасно работает, я 2007 юзаю!

Огромное спасибо, Vovan! давно искал подобный макрос и вот нашел.

А в каком месте выставить процент слов, на которые он должен синонимы искать. как сделать что бы он каждое слово синонимом заменял

Написал серверный синономайзер
http://nildesign.ru/proektyi/besplatnyiy-servernyiy-sinonimayzer-ajax/

можете попробовать.

На английском тоже пашет. Надо только тезаурусы переключить. Результат: Было:
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 .

А кто-нибудь знает, как из ms word вытащить всю базу синонимов? :)

Ой блин )) во мне этот ваш синонимайзер пёрлы выдаёт я валяюсь !!! )) ахаха )) ваще нечитабельный текст ))

Написал пару постов про синонимайзер. Обсуждение новой идеи для синонимизации blog3d.ru

Синонимайзер(прога) + база 6000 за 15$
ас 416 609 878

А как в 2007ом запустить синонимайзер?

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

есть текст -- мама мыла ебаную раму
После прогона через макрос -- {мама|мамаша|мать|мамулька|предлок} {мыла|дравила|пидорила|отмывала} {ебанную|ебучую|затраханную|злоебучую|выебанную} {раму|корпус}.

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

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

*синтаксисе*

Инструкция по использованию синонимайзера дана для тех, кто в этом хоть что-то понимает. А можно дать для тех, кто ничего не понимает? Я попробовала пройти через ваши 3 шага у меня получилось на выходе что-то похожее на программу, а что с этим делать дальше, чтобы увидеть преображенный текст?

Автор! помоги плз !

Как сделать так, что бы синонимайзер пропускал ошибки теразиуса (или как его там ) ?

Что нужно дописать в скрипт ?

Vavan! Поправь всплывающие ошибки в тезаурусе!!! И цены тебе не будет! Такой офигительный макрос... и так нехорошо появляется критическая ошибка. Или это признак шароварности? ;)

vovan, респектище еще раз, но вот мысля пришла:

проблемы в ворде (с нечитабельностью), я так понимаю, в основном с существительными (точнее с падежными окончаниями).. С глаголами ведь все нормально?

Если, к примеру, глагол в прошедшем времени, то ворд по умолчанию предлагает глагол-синоним в прошедшем времени..

А теперь сам вопрос: можно ли каким-либо образом научить твой скрипт заменять только глаголы??????

А если быть точнее: заменять все, кроме существительных.. Это вообще реализовать реально или нет??

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

Подскажите что заменить в коде, чтоб вместо выделение замененого слова жирным, брало доступные синонимы и слово-оригинал в рамки {оригинал|синоним1|cиноним2}

Хрень!!!

Обрабатывает первые 10 слов, а все остальные заменяет на "результате" :)

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

1. результате на результате

Составляя результате предстоящего результате не результате включить результате стоимость результате наряда результате необходимые результате как результате (ее результате может результате от 50 результате .е. результате до результате ), туфли, результате белье результате драгоценности (результате красивую результате ). Кроме результате , не результате , что результате любое результате нуждается результате небольшой результате (гдерезультате то результате , гдерезультате то результате , сделать результате ), поэтому результате заложите результате бюджет результате на результате .

2. Дрессрезультате код
результате вы результате венчаться результате церкви, результате помните результате во результате храмах (результате не результате во результате ) не результате открытые результате . Поэтому результате у результате платье результате глубоким результате , то результате о результате чтобы результате на результате платок.

3. результате
Как результате большинство результате невест результате занятые, результате если результате возможность результате неделю результате на результате или результате (не результате , конечно, результате отпуска результате на результате свадьбу результате свадебное результате ). В результате случае результате вас результате достаточно результате , чтобы результате по результате и результате множество результате .

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

5. Определитесь результате своими результате
Оказавшись результате свадебном результате – не результате и результате молчите. результате продавцурезультате консультанту результате ваших результате . И результате отказывайтесь результате примерки результате платьев, результате , по результате мнению результате не результате . Может результате вы результате , и результате на результате это результате будет результате потрясающе? результате продавец результате вам результате то результате на результате вам результате не результате , не результате – примеряйте. результате больше, результате лучше. результате , многие результате уходили результате магазинов результате с результате платьем, результате изначально результате не результате .

6. Магазины результате
Вы результате побежали результате ЗАГС результате первый результате день результате знакомства? результате вы результате должны результате первое результате платье результате близлежащем результате . Сходите результате несколько результате , чтоб результате более результате представление результате ассортименте.

7. результате паузу
результате после результате как результате нашли результате своей результате , не результате его результате . Попросите результате его результате день результате идите результате . Если результате следующий результате вы результате передумали результате порезультате прежнему результате именно результате платье, результате покупайте. результате , если результате доставили результате под результате по результате , то результате отказа результате него, результате придется результате какуюрезультате то результате . Как результате это 50% результате стоимости результате .

8. Доверяйте результате инстинктам
результате вы результате чувствуете результате купленное результате именно «результате », вам результате уютно результате нем результате ваше результате в результате вас результате радует, результате не результате себе результате из результате счастливых результате в результате – сдайте результате обратно. результате вперед результате поиски результате нарядов!

9. результате к результате
Вы результате несколько результате , посмотрели результате платьев, результате ни результате из результате вас результате зацепило. результате тем результате хорошо результате что результате . Тогда результате сшить результате на результате . Главное результате этом результате правильно результате ателье результате мастера, результате это результате займет результате больше результате , нежели результате уже результате свадебного результате . Если результате процессе результате платья результате чторезультате то результате понравится, результате стесняйтесь результате об результате мастеру.

10.результате
В результате жизни результате все результате в результате , прежде результате , удобство. результате платье результате исключение. результате должны результате провести результате нем результате из результате важных результате и результате ничего результате должно результате . Попробуйте результате время результате сесть, результате , пройтись… результате чторезультате то результате устраивает результате можно результате какрезультате то результате : укоротить результате , увеличить результате , уменьшить результате увеличить результате в результате .

11. Нижнее результате
Дизайнеры результате платьев результате покупать результате свадьбу результате белье результате близким результате цвету результате . Иначе результате будет результате сквозь результате платья, результате это результате очень результате .

12. Свадебная результате
Если результате планируете результате предсвадебный результате , можно результате могут результате вам результате выбранное результате на результате . После результате вы результате сможете результате . Посмотрев результате , вы результате понять результате вы результате выглядеть результате свадьбе.

13. результате по результате
Если результате которое результате выбрали результате заказывать результате каталогу, результате необходимо результате точное результате когда результате его результате . Лучше результате это результате заранее, результате что результате может результате не результате или результате не результате как результате в результате смотритесь результате у результате должно результате время результате заказать результате наряд.

14. результате швею
результате для результате шьют результате платье результате заказ результате вы результате проверить результате профессионального результате нашли, результате для результате другой, результате свадебный результате . По результате работы результате будет результате о результате вашего результате и результате результат результате удовлетворяет, результате можно результате и результате платье.

После такого рерайта прямая дорога в баню :)

Спасибо, потестим

Супер вещь! Спасибо :)

Работает и в Ворде 2007! Поработаю, оценю!

Свой словарь можно подключить ?

Свой словарь можно подключить ?

Vovan, большое тебе человеческое спасибо.

а у меня работает, отлично!

Vovan, а за что отвечает переменная КоличествоПропусков - какие пропуски имеются в виду?

Мои эксперименты с синонимизацией текста привели к тому, что Яндекс не принял сайт на индексацию. :(

спасибо, вещь стоящая. а есть такой же синонимайзер для wordpressa???

Работает Wor 2007.Cпасибо Vovan, вещица нужная.

Работает в Word 2007.Cпасибо Vovan, вещица нужная.

Как подключить внешнюю базу с расширением .sql.gz ?

Автору респект и уважуха. Конечно, нужна доработка напильником. Короч, Афтар, пешы истчо! :)

Подключение внешнего словаря сделаете?

Или может редактирование существующего словаря?

Для сателлитов думаю сойдёт =)

Привет! Очень хочу иметь такую штуку. Но наверное, делаю что-то не так(((
Сервис/Макрос/Макросы/Syn2/выполнить Не получается((( Я офис уже перезагружала несколько раз.

Ничего не понимаю. Скачал зиповский файл. Там вордовский доекмент. Никаких ссылок и полей ввода там нет. Какой-то текст про казино и все. Что си значит?!

Ура! Заработало! Это после повторной загрузки синонимайзера с сайта. Старый архиватор и папку Syn удалила и загрузила по-новой. Теперь работает.
Забавно:) Делала рерайт текста по косметологии. Кожу синонимайзер называет кожурой,а
выражение "не стоит сильно прижимать прибор к телу" меняет на "не стоит страшно прижимать блок к остову".
А так, в общем, ничего. Спасибо:)

Спасибо автору. Тока ест проблемка. Если в тексте попадаются некотоые слова 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
Безопасность уменьшал, текст и выделял и нет... Просьба помочь. Спасибо.

Спасибо автору. Отличная штука. Все работает!

Все куль. автору респект и уважуха ;) токо вот чето правда все в нижний регистр перекидывает. это плохонько. а так ваше гуд

В 2007-м Ворде работает, только качество, честно говоря, не фонтан. На как добавку к различным программам можно, в принципе, использовать. Один плюс, что не надо вручную проверять синонимы.
ИМХО, использовать этот макрос, потом перевести все на английский и обратно, еще раз макрос, немного ручками доработать и все. Получится нормальный уникальный текст.

После использования макроса:
В 2007-м Ворде работает, только качество, правдиво говоря, не фонтан. На как добавку к разнообразным программам можно, в принципе, употреблять . Один достоинство , что не надо вручную проверять синонимы.
ИМХО, употреблять этот макрос, испариной перевести цельное на британский и вспять , еще однажды макрос, немного ручками доработать и полные . Получится нормальный уникальный текст.

После перевода:
В 2007 Слово работает, только качество, правдиво разговор, не фонтан. На, поскольку добавка к различным программам может использоваться, в основном. Одно преимущество, что не необходимо проверить синонимы вручную.
ИМХО чтобы использовать этот макрос, пот, чтобы перевести интеграл на британском и обратном, все еще однажды макрос, немного закончить ручки и полный. Нормальный уникальный текст окажется.

Теперь осталось немного ручками.

Классная штука. Спасибо.

Не получилось сделать такую штуку

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. Разжуйте плиз. Спасибо!

спасибо большое за этот макрос.

Спс за хороший мак и советы

Вещь хорошая, спасибо, но может быть кто поскажет где взять синонимайзер с русскими базами для wordpress или хотябы качественную базу синонимов для feedmaster

База и синонимайзер отдельно в инете лежит. Ссылку так сказать уже не помню, но на тот момент когда я тестил синонимайзер с базами под WP - получался один бред.

Не сказал бы что это решение даст более огромное преймущество перед спец-синомайзерами.

Синонимайзер

- Встроенный блог-клиент
- Высокая скорость обработки текста
- Внешний словарь синонимов
- Слежение за буфером обмена
- Обработка и публикация одним нажатием
- Перемешивание абзацев
- Постинг по протоколу XML-RPC

Словарь синонимов

- 70 000 слов и словоформ
- обработка слов и фраз
- синонимизация до 90%
- почти 100% читабельный текст

http://syn-master.ru/

Не плохо, но еще есть над чем работать

Блин что то у меня синонимизатор рабоать перестал. Винду переустановил и не рабоатет ни на 2007 ни на старм....что это может быть выбивает на оштбку

Замечательная идея.
И легко переделать в 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

В 2007 не работает. Просто удаляет некоторые слова.

В OpenOffice не работает :(

Пишет:

Ошибка времени выполнения BASIC.
'51'
Внутренняя оштбка ..

Ворд, конечно, хорошо, но хотелось бы и вариантик на пхп...

Синонимайзер это 30% успеха, остальные 70% - это адекватная база синонимов... в инете куча хлама перекопал все..., решил купить, я покупал здесь - дешевле не видел...Текст действительно читабельный...
А лучше купить прогу с обновлениями и базами, палюбому окупиться...

www.dverigarmoshka.ru Раздвижные двери

Атлас автодорог Украины Обучение вождению ПДД

bazzinga.org неплохо синонимизирует.
Применяю для предварительного рерайта.

Что-то у меня тож синонемайзер на пашет(