извлечь фотографии из doc (docx) файла

[mr_xxx]

Привет
Прошу помочь
test1.doc
нужно чтобы находил все фотографии внутри файла и сохранил файлы в папку d:/test
а вместо фотографии который сохранил написал название фотографии который сохранил

ОЧЕНЬ ПРОШУ ДАЙТЕ КОД
НЕ ПИШИТЕ ищи в google - e и тд
ЗАРАНЕЕ СПАСИБО

[Serge_Bliznykov]

Сообщение от mr_xxx

нужно чтобы находил все фотографии внутри файла и сохранил файлы в папку d:/test

и это всё на Delphi?

[mr_xxx]

Сообщение от Serge_Bliznykov

и это всё на Delphi?

да пожалуйста

нашел который удаляет

program WordDeletePicture; 
 
{$APPTYPE CONSOLE} 
 
uses 
  SysUtils, 
  ActiveX, OleServer, WordXP, Variants; 
 
var 
  DocName  : OleVariant; 
  DocName1 : OleVariant; 
  wAPP     : TWordApplication; 
  WordApp  : OleVariant; 
  Doc      : OleVariant; 
  i        : integer; 
begin 
  CoInitialize(nil); 
 
  DocName  := 'C:\Delphi\Тесты\DeletePicture\Это файл с рисунками.doc'; 
  DocName1 := 'C:\Delphi\Тесты\DeletePicture\Это файл без рисунков.doc'; 
 
  try 
    try 
      wApp := TWordApplication.Create(nil); 
      wApp.Connect; 
       
      WordApp := wApp.Application; 
      Doc := WordApp.Documents.Open(DocName); 
 
      for i := Doc.InlineShapes.Count downto 1 do 
      begin 
        Doc.InlineShapes.Item(i).Delete; 
      end; 
       
      Doc.SaveAs(DocName1); 
      Doc.Close; 
 
      Doc     := UnAssigned; 
      WordApp := UnAssigned; 
 
      if wApp.Documents.Count = 0 then wApp.Quit else wApp.Disconnect; 
    finally 
       if Assigned(wApp) then FreeAndNil(wApp); 
    end; 
  except 
    on E:Exception do 
      Writeln(E.Classname, ': ', E.Message); 
  end; 
 
  CoUninitialize; 
end.

а мне нужно который извлекает фото и вместо них пишет имя файла

[Serge_Bliznykov]

понятно. задача не скажу, что простая и тривиальная...

попробуйте взять код отсюда:
(см. Получение рисунка из документа)

(с) Albinos_x

Получение рисунка из документа



Рисунок можно не только заносить, но и получать из Word. Вставленные в Word формулы, также являются рисунками. 
Покажу пример получение рисунка со свойством обтекания текста – в тексте:

var c, i:Integer;
  OlF:OLEFormat;

…

WordDocument1.Content.Select;

// количество рисунков

c:=WordDocument1.Range.InlineShapes.Count;

Caption:=inttostr(‘количество рисунков - ’+c);

for i:=1 to c do
  begin
  WordDocument1.Range.InlineShapes.Item(i).Range.CopyAsPicture;

// для примера сделано только для 2-х рисунков

// рисунок 1
  if i=1 then
  Image1.Picture.Assign(Clipboard);
  Application.ProcessMessages;

// рисунок 2
  if i=2 then
  Image2.Picture.Assign(Clipboard);

// здесь записываем в memo1 тип и формат объекта
  OlF:=WordApplication1.Selection.InlineShapes.Item(i).OLEFormat;
  s:='';
  s:=Inttostr(WordApplication1.Selection.InlineShapes.Item(i).type_);
  if WordApplication1.Selection.InlineShapes.Item(i).OLEFormat<>nil then
  begin
  s:=s+' = ' +OlF.ClassType;
  end;
  memo1.Lines.add(s);