Скачать: CL | DM;

Как прицепить словарь от 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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c