Einzelnen Beitrag anzeigen

bwolf

Registriert seit: 17. Jan 2006
368 Beiträge
 
Delphi 2009 Professional
 
#1

Word Serienbrief - Vorschau

  Alt 25. Nov 2008, 17:49
Hi Leute,

ich muß in einer Anwendung die Möglichkeit anbieten, Serienbriefe über Word zu drucken.
Soweit so gut, das klappt auch ganz gut.

Nun brauch ich aber eine Möglichkeit, dem Benutzer den erstellten Serienbrief als Vorschau anzeigen zu lassen, das der Brief evt. noch manuell geändert werden kann.
Das klappt ebenfalls einigermaßen, aber 2 Sachen Stören mich:

1. Es öffnet sich nicht nur der erstellte Serienbrief, sondern auch die dazugehörige Vorlage aus der der Brief erstellt wird
2. Erscheint der Dialog "Änderungen Speichern" (und das sogar wenn am Dokument gar nichts gemacht wurde)

Diese beiden Punkte würd ich gern noch grade biegen.

Hier mal der Code wie ich den Brief erstelle:

Delphi-Quellcode:

OleInitialize(nil);

Word:=CreateOleObject('Word.Application');
word.Visible := True; // oder eben False falls keine Vorschau...

// Pfad zur Vorlage die für de Serienbrief verwendet werden soll
word.Documents.Open(OLEFilename);
// Vorlage zu Serienbrief machen
word.ActiveDocument.MailMerge.MainDocumentType:= wdFormLetters;
// Datenqulle (CSV) öffnen
word.ActiveDocument.MailMerge.OpenDataSource(OLEDataSource);
// Serienbrief zusammenführen
word.ActiveDocument.MailMerge.Execute(0);

// Nur automatisiert schließen wenn keine Vorschau angezeigt wird
word.quit(false);

OLEUnInitialize();

Wäre toll wenn einer n Tip für mich hätte.
Vielen dank schonmal,
gruß ben
  Mit Zitat antworten Zitat