DOC ---> HTML

Previous  Top  Next

    
 

 

Code:

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