Hallo Stefan,
ich habe Deine Testdaten mittels folgendem code (und WPTools) extrahiert
Code:
procedure TForm6.ExtractButtonClick(Sender: TObject);
var wp : TWPCustomRTFEdit; // uses WPCtrMemo - WPTools
i : Integer;
begin
wp := TWPCustomRTFEdit.CreateDynamic;
try
if OpenDialog1.Execute then
begin
wp.LoadFromFile(OpenDialog1.FileName);
for i := 0 to wp.TextObjects.ObjCount-1 do
if wp.TextObjects.ObjList[i].IsImage then
wp.TextObjects.ObjList[i].ObjRef.SaveToFile(
Format('%sembedded_img_%d.%s',
[ExtractFilePath(OpenDialog1.FileName), i,
wp.TextObjects.ObjList[i].ObjRef.FileExtension] ));
end;
finally
wp.Free;
end;
end;
Es wird ein WMF geschrieben mit der Adresse in der linken oberen Ecke.
Die Einbettung mittels \pict\wmetafile8 ist reichlich altmodisch und wird glücklicherweise heute nicht oft genutzt.
Die Anzeige in MS Word entspricht aber der des Metafiles (also winzig klein).
Das erzeugte WMF kann in WPTools eingefügt werden.