Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.144.33.41] |
|
Сообщ.
#1
,
|
|
|
Вообще то в html доковский файл перевести - дело 5 минут ;-)
var fname: string; WordAppl, WordDoc: OleVariant; begin with TOpenDialog.Create(nil) do try Filter := 'word documents (*.doc)|*.doc'; if not Execute then Exit; fname := FileName; finally Free; end; WordAppl := CreateOleObject('Word.Application'); try WordDoc := WordAppl.Documents.Open(fname); fname := ExtractFilePath(fname) + 'test.htm'; WordDoc.SaveAs(FileName := fname, FileFormat := wdFormatHTML); finally WordAppl.Quit; end; end; Эта тема была разделена из темы "Обработка .doc в Delphi 7" |