Alle Bilder aus Word-Datei extrahieren

[capo]

Kennt ihr eine Möglichkeit alle Bilder (Grafiken, Fotos) aus einem Worddokument zu extrahieren?
Gruss vom Capo

[capo]

^^ PUSH **

[capo]

Hallo,
ich habe folgendes Beispiel gefunden aber in Java geschrieben.
http://willcode4beer.com/ware/wordimg.jsp
Sowas müßte es doch auch für Delphi geben, oder?

Ein Textfeld kann man so auslesen, der Code müßte mit "kleinen Änderungen" auch für das auslesen der Bilder genommen werden können.

Delphi-Quellcode:

var
  MSWord: OLEVariant;
  sText: string;
  i: Integer;
begin
  try
    // active word instance
    MSWord := GetActiveOleObject('Word.Application');
  except
    Exit; // Word not open
  end;
  for i := 1 to MSWord.ActiveDocument.Shapes.Count do
  begin
    sText := MSWord.ActiveDocument.Shapes.Item(i).TextFrame.TextRange;
    sText := StringReplace(sText, #$D, #13#10, [rfReplaceAll]);
    Memo1.Lines.Add(sText);
  end;
  MSWord := Unassigned;
end;

mit

Delphi-Quellcode:

WordApplication.Selection.InlineShapes.AddPicture('c:matrix.jpg');

kann man auch Bilder hinzufügen, nin gerade damit am rumprobieren, komme aber nicht so richtig weiter.


gruss vom capo

[capo]

Hi...
kann mir jemand evtl. einen Tip geben in welcher Richtung ich suchen muss?

Text kann ich ja so extrahieren:

Delphi-Quellcode:

sText := MSWord.ActiveDocument.Shapes.Item(i).TextFrame.TextRange;

Bilder hinzufügen geht so:

Delphi-Quellcode:

WordApplication.Selection.InlineShapes.AddPicture('c:matrix.jpg');

Muss ich in InlineShapes oder in Shapes.Item nach den Bildern suchen?


gruss vom capo