Как прицепить словарь от Microsoft Office

← →
Stals © (2006-08-08 21:31) [0]

Как можно пользоваться словарем от WORD"a, например для проверки слова, введенного пользователем?
Тут стало быть через COM или ActiveX надо... Кто-нибудь уже такое делал?

← →
NORDmen © (2006-08-09 11:08) [1]

Stals, в стандартной поставке д7 (не знаю как в других версиях) есть activex компонент spellcheck, +документация к нему где все описано оч. подробно.

не знаю только как activex или com юзать в коле... наверно можно.

← →
mdw © (2006-08-09 15:43) [2]

> не знаю только как activex или com юзать в коле... наверно
> можно.

В Д5 можно. А вот в верхних версиях Viriants тянет все подряд, поэтому получается +~70кб :((

← →
z007 (2006-09-03 01:28) [3]

Практически все vcl-компоненты для проверки орфографии легко портируются в kol.
Что касается word"a, то я видел такие компоненты для версий до 2000 (по-моему).
Так что, в любом случае, проверка орфографии либо потянет на несколько мб либо будет требовать спецконфигурации по.

← →
Наиль © (2006-09-04 08:57) [4]

Кто-то уже задавал такой вопрос. Ответ был таким:
Орфография в Word - это всего лишь dll.
К сожалению, в ответе не было указано какие функции и как вызывать.

← →
z007 (2006-09-06 20:55) [5]

есть такой юнит csapi - кажется, это как раз заголовки для word97.
В kol, разумеется, работает, у меня даже есть почти работающий (тестовый) проект - переделан с vcl. надо?

← →
Vladimir Kladov (2006-09-06 21:11) [6]

этот код работает в Delphi5 (в 6 НЕ работает). прога 45К, если надо программировать в основном в другом Delphi, проще сделать dll. В uses добавить KOLComObj, может понадобиться выдрать VarToStr из System в другом Delphi (мне почему-то пришлось). Создавать документ ради одного слова конечно глупо, инициализацию и финализацию надо разнести. Это просто грубый тест.

procedure TForm1.Button1Click(Sender: PObj); var wordapp, worddoc, range: Variant; s: String; colspellerrors : Variant; // proofreadingerrors; colsuggestions : Variant; i: Integer; begin Memo1.Text := ""; wordapp := createoleobject("word.application"); worddoc := wordapp.documents.add; s := EditBox1.Text; range := worddoc.range; range.delete; range.text := s; s := range.text; colspellerrors := worddoc.spellingerrors; i := colspellerrors.count; if i <> 0 then begin ShowMessage( "Error!" ); s := colspellerrors.item(1).text; colsuggestions := wordapp.getspellingsuggestions(s); for i := 1 to colsuggestions.count do begin s := vartostr(colsuggestions.item(i)); Memo1.Add( s + #13#10 ); end; end; end;

Как прицепить словарь от Microsoft Office Найти похожие ветки