Последние записи

Оплата за обучение в Kata Academy только после твоего трудоустройства в IT
Начни карьеру Middle Java-разработчика, подробнее на сайте академии, ссылка - https://clck.ru/fCrQw

Интенсив по Python - 3-5 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

31st
Янв

Извлечь фотографии из 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);

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