![]() | | | ![img]() |
|
 | DRKB online - DOC ---> HTML |
|
|
| |
|
DOC ---> HTML
| delphi | 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; |
@Drkb::04282
Взято из http://forum.sources.ru
Автор: jack128 |
|
| | Количество статей: 4366 |
|
|
| |
|
| Статистика |
| | Сегодня | Всего |
| Посетителей | 412 | 10022304 |
| Запросов | 2370 | 449161986 |
| Online |
| Пользователей | 0 |
| Гостей | 9 |
|
|
|
Пуск
