История изменений

Исправление ilovewindows, 30.10.16 19:04 (текущая версия) :

Ну канечна, ты первый кто натолкнулся на такую задачу

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, HtmlName, FileFormat:OleVariant;
begin
  FileName:='c:\qqq.doc';
  HtmlName:='c:\qqq.html';
  FileFormat:=wdFormatHTML;
  WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  WordDocument1.SaveAs(HtmlName,FileFormat);
  WordDocument1.Close;
  WordApplication1.Quit;
end;

Исходная версия ilovewindows, 30.10.16 19:03:

Ну канечна, ты первый кто натолкнулся на такую задачу

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, HtmlName, FileFormat:OleVariant;
begin
  FileName:='c:\qqq.doc';
  HtmlName:='c:\qqq.html';
  FileFormat:=wdFormatHTML;
  WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,              EmptyParam,EmptyParam);//,EmptyParam,EmptyParam,EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  WordDocument1.SaveAs(HtmlName,FileFormat);
  WordDocument1.Close;
  WordApplication1.Quit;
end;