На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > DOC -> HTML
      Вообще то в html доковский файл перевести - дело 5 минут ;-)

      ExpandedWrap disabled
        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"
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0154 ]   [ 17 queries used ]   [ Generated: 28.03.24, 08:03 GMT ]