Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Вниз

Спеллер Word а для нужд программы.   Найти похожие ветки 

 
AlexanderMS ©   (2007-01-03 16:37) [0]

Как можно заставить вордовский спеллер проверить орфографию в произвольном сочетании слов?


 
vlad-mal ©   (2007-01-03 20:49) [1]

Например:
бросаем на форму:

   wdApp: TWordApplication;
   wdDoc: TWordDocument;


С параметрами, например, такими:

 object wdApp: TWordApplication
   AutoConnect = False
   ConnectKind = ckRunningOrNew
   AutoQuit = True
 end
 object wdDoc: TWordDocument
   AutoConnect = False
   ConnectKind = ckRunningOrNew
 end


и реализуем два метода:
    procedure DoWord; // Инициализация MS Word
    procedure WorkWithWord; // Собственно, работа


Реализация:

procedure TForm1.DoWord;
var
 Template, NewTemplate, DocumentType, Visible, ItemIndex: OleVariant;

begin
 try                                   // Попытка коннекта
   wdApp.Connect;
   ItemIndex := 1;
   //    wdApp.Application.EnableEvents := false; // Ускоряем
   Template :=
     "C:\Doc.Doc";
   NewTemplate := False;
   DocumentType := wdTypeDocument;
   Visible := False;
   wdApp.Documents.Add(Template, NewTemplate, DocumentType, Visible);
   wdDoc.ConnectTo(wdApp.Documents.Item(ItemIndex));
 except
   on E: Exception do begin
     ShowMessage("Ошибка активизации приложения Microsoft Word. " +
       E.Message);
     if Assigned(wdApp) then
       if (wdApp.Documents.Count > 0) then begin
         wdApp.AutoQuit := True;       // Пусть не зависает фигня в системе!
       end;
     exit
   end;
 end;

 try
   WorkWithWord;
 except
   on E: Exception do begin
     ShowMessage("Ошибка работы с Microsoft Word. " +
       E.Message);
     if Assigned(wdApp) then
       if (wdApp.Documents.Count > 0) then
         wdApp.AutoQuit := True;       // Пусть не зависает фигня в системе!
     exit
   end;
 end

end;


Ну и сама работа:

procedure TForm1.WorkWithWord;
var
 fsaveChanges      : OleVariant;
begin
 fsaveChanges := False;
 wdDoc.Select;
 wdApp.Selection.Select;
 wdApp.Selection.Text := "Здравствуй, Юра, Новый Гоd!";
 wdDoc.CheckGrammar;
 wdDoc.Close(fsaveChanges);
 wdApp.Disconnect;

end;


И все.


 
DrPass ©   (2007-01-04 01:09) [2]

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


 
vlad-mal ©   (2007-01-04 15:00) [3]

Конечно, лучше. :)

Однако, что чел хотел - то и получил.


 
AlexanderMS ©   (2007-01-04 16:16) [4]

Большое спасибо!

Такой роскоши, как TSpellChecker, мне не нужно (скачал, посмотрел, куча модулей, компоненты всякие).

Вариант [1] устраивает с исключением:
Как понять, что в слове ошибка?!

Попробую так : CheckGrammar(SomeWord);



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

Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.071 c
15-1167220321
kroner
2006-12-27 14:52
2007.01.21
Регулярное выражение


15-1166972333
Eraser
2006-12-24 17:58
2007.01.21
Для тех, у кого есть Vista SDK


1-1164713739
leksNov
2006-11-28 14:35
2007.01.21
Помогите!!!


15-1167229364
boriskb
2006-12-27 17:22
2007.01.21
Баян


15-1167241272
GrayFace
2006-12-27 20:41
2007.01.21
Возбуждено уголовное дело за использование пиратского софта.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский