Проверка правописания с помощью Ворда
От: magedon  
Дата: 07.05.08 15:56
Оценка:
Доброе время суток.

Я подключаюсь к Ворду и использую его в качестве редактора в своем приложении. Заменил его попап своим, но хочу использовать проверку правописания. Работает, но есть один ньюанс — когда текст многоязычный (русский и английский) не могу получить вариантов (suggestions) для английского слова.
Вот функция которой я получаю список вариантов:



function TWordEditor.GetSpellingSuggestions(AWord: WideString): TTntStringList;
var
 ss: Variant;
 i: integer;
begin
 Result := nil;
 if AWord <> '' then
 begin
   try
     ss := FApplication.GetSpellingSuggestions(AWord);
     if ss.Count > 0 then
     begin
       Result := TTntStringList.Create;
       for i := 1 to ss.Count do
          Result.Add(ss.Item(i).Name);
     end;
   except
     if Assigned(Result) then
       FreeAndNil(Result);
   end;
 end;
end;




Например есть два неправельных слова Масква foood
Если передаать в эту функция Масква она ворвратит Москва b маска
Но если передать сюда foood то получим nil на выходе.
Хотя если оставить офисное попап меню то оно выдает варианты и для английского слова.

Вопрос как вызвать FApplication.GetSpellingSuggestions чтобы он использовал все словари и выдавал варианты для всех языков?

Спасибо.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.