Einzelnen Beitrag anzeigen

cltom

Registriert seit: 22. Sep 2005
221 Beiträge
 
Delphi 12 Athens
 
#1

Word Automation, Bookmark, mehrfach Paste

  Alt 15. Nov 2007, 14:12
Hallo DP,

nachdem ich schon öfters so schnell Hilfe bekommen habe hier, hätte ich wieder eine Frage:

Es sollen in ein Word-Dokument eine Reihe von jpgs via zwischenablage eingefügt werden. Dafür habe ich ein Bookmark gesetzt, an das nun nacheinander alle Bilder kommen sollen.

Delphi-Quellcode:
vBookmark := 'bookmarkname';
R := WordDocument.Bookmarks.Item(vBookmark).Range;
for i:=1 to somecounter do
begin
  R.InsertAfter('image' + #13);
  R.Paste;
  R.InsertAfter('after image' + ' ' + #13);
  R.InsertAfter(inttostr(i) + ' ' + #13);
end;
Das klappt auch. Allerdings nur mit einem Bild, denn die vorhergehenden Bilder werden immer wieder überschrieben. Effektiv überbleibt nur das letzte Bild von somecounter bildern. und die letzten Zeilen (after image und i).

Wenn ich das R.Paste weglasse, dann stimmts, dann kommen alle Texte. es geht aber hauptsächlich um die Bilder.

Offenbar ersetzt R.Paste die gesamte Range, kann das sein? Wie kann ich das verhindern?

danke!
gruß
tom
  Mit Zitat antworten Zitat