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

Posted by obzor under Delphi

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

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);

тема на форуме

Похожие статьи

• Удаление пустых строк в таблице (Microsoft Office Word)
• Вставить текст в определенную строку ячейки таблицы в ворде
• Экспорт в Word из Memo
• Скопировать данные из Edit в Word
• Как из delphi вставить символ в word?
• Словарь словоформ русского языка
• Запуск макроса в открытом на данный момент Word
• Как макросом брать данные с word документов в excel?
• Как экспортировать таблицу ehlib в word?
• Добавить данные из DBgrid в Ms Word