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