[mike1]

Подскажите, как из Вордовского документа сделать страницу HTML так чтобы сохранились картинки.

[san-46]

Документ надо сохранить в виде HTML документа (все делается в MS Word).
Файл/Сохранить как...
1. Изображение сохраняется в отдельном каталоге, на файлы из которого в HTML документе генеряться ссылки. В диалоге надо выбрать "Тип файла" - html.
2. Изображение сохраняется вместе с текстом в одном файле (так называемый веб-архив). В диалоге надо выбрать "Тип файла" - mht.
Другой вариант XML, но что касается картинок, то это ничем не будет отличаться от первого варианта.

[mike1]

за ответ спасибо, но я имел ввиду - как это сделать из Делфи.
Я делаю программу которая из файла .doc делает страницу HTML. Чтобы данный документ можно было просматривать в инете.

[san-46]

Очень интересно. Никогда не слышал чтобы MS открыл (для общественного пользования) проприетарный (закрытый) формат своих файлов, который используется в документах MS Word и MS Excel.
"Я делаю программу...", мало делать программу, надо знать формат файлов .doc, чтобы прочитать из нее данные. А для этого, как минимум, надо быть в команде разработчиков MS Word (а вы когда-нибудь были в Рендмоде?).

Впрочем, выход все равно есть. Если мы не можем напрямую работать с файлами формата Word, то воспользуемся возможностью Delphi работать с Word'ом через OLE. Например, так: открыть документ Word (не показывая самого Word'а) и выполнить одну из выше приведенных мной команд.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure Doc2html; var   WApp : Variant; begin   try     WApp:= CreateOleObject('Word.Application');   except     on E : EOleError do begin       MessageDlg('MS Word на компьютере не найден!', mtError, [mbOk], 0);       Exit;     end;   end;       try     WApp.DisplayAlerts := false;     WApp.Documents.Open(<имя файла doc>);     WApp.ActiveDocument.SaveAs(FileName:=<имя файла html>,           FileFormat:= wdFormatHTML);   finally     WApp := Unassigned;   end; end;

В секции uses надо указать один из OLE серверов "word2000", "wordXP" или "word97". Чтобы знать какие есть, смотрите исходники (находятся в Delphi\Ocx\Servers\).
Недостаток: на компе должен быть установлен MS Word.

[mike1]

Спасибо, за совет. Сейчас попробую))

[san-46]

Надо только закрыть Word. Этого оператора в приведенном коде нет.
Иначе запущенные Word'ы будут торчать в диспетчере задач и сколько будет обращение к такой процедуре, столько их и будет.