Hallo zusammen,

ich würde gerne aus einer Datenbank (Firebird), Daten auslesen und in eine Wordvorlage übertragen.
Dies ist mir bisher nicht gelungen. Hier ist mein code und der Kommentar wo der Fehler kommt.
Ich arbeite mit MS Word 2010

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var FileName, NewFile : OleVariant;
    Mail : MailMerge;
    Pause, vWhat, vBookmark : OleVariant;
begin
  FileName := 'C:\Datenbank\Paramaufruf.dotx';
  NewFile := ExtractFilePath(FileName) + 'Brief.docx';

  WordApplication.Connect;
  WordApplication.Documents.OpenOld( FileName, EmptyParam, EmptyParam, EmptyParam,
                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                     EmptyParam, EmptyParam );
  WordDocument.ConnectTo(WordApplication.ActiveDocument);
  WordApplication.Visible := True;
  Pause := True;
  Mail := WordDocument.MailMerge;
  Mail.Destination := wdSendToNewDocument; // Hier kommt es zum Fehler --> "Das angeforderte Objekt ist nicht verfügbar"
  Mail.Execute( Pause );
  ShowMessage( 'Fertig' );
  WordDocument.Close;
  WordDocument.Disconnect;
  WordDocument.ConnectTo(WordApplication.ActiveDocument);
  WordDocument.SaveAs(newFile);
  WordDocument.Disconnect;
  WordApplication.Quit;
  WordApplication.Disconnect;
end;

Hat jemand eine Idee?
Gibt es auch schon fertige Komponenten?
Gibt es vielleicht jemand, der dies anders gelöst hat?

Vielen Dank für die Rückmeldungen!

Eppos

Ich arbeite nicht mit Word2010, aber bei einer älteren Version habe ich einen ähnlichen Fehler gehabt. Damals war es so, daß die Dokumentvorlage (Template) nicht wußte, das sie die Vorlage für einen Serienbrief war. Leider weiß ich nicht mehr an welchem Parameter ich damals gedreht habe, aber vielleicht reicht's als Hinweis.

Gruß
K-H

Guck mal ob dir das weiterhilft, ist
sogar recht aktuell:

http://support.microsoft.com/kb/229310/de

Gruß
Steku

Zitat von Steku:

Guck mal ob dir das weiterhilft, ist
sogar recht aktuell:

http://support.microsoft.com/kb/229310/de

Als Anregung vieleicht, alleine bei dem Dateinamen stellen sich mir die Nackenhaare aufrecht.

Gruß
K-H

Immerhin veröffentlicht MS einen Artikel für ein Entwicklungssystem der Konkurrenz

Zitat von Eppos:

Hallo zusammen,

ich würde gerne aus einer Datenbank (Firebird), Daten auslesen und in eine Wordvorlage übertragen.
Dies ist mir bisher nicht gelungen. Hier ist mein code und der Kommentar wo der Fehler kommt.
Ich arbeite mit MS Word 2010

Bei der Serienbrief-Erstellung ist es am einfachsten, die benötigten Daten in eine CSV-Datei zu schreiben (Textdatei, wobei die einzelnen Felder durch Komma oder Semikolon getrennt werden) und eine entsprechende WORD-Vorlage zu erstellen, die mit dieser CSV-Datei verknüpft ist. So mache ich das mit meiner kleinen Adress-Datenbank, die man sich hier runterladen kann.

Hallo,

Zitat von Eppos:

// Hier kommt es zum Fehler --> "Das angeforderte Objekt ist nicht verfügbar"

öffen mal das Serienbrief-word-Doc per hand im Word. Da kommt dann höchstwahrscheinlich eine Warnung "Das Öffnen diese Dokumentes wird den folgenden SQL-Befehl ausführen ... ". Die Warnung kommt auch bei ner csv/txt-Datei als Grundlage, leider kommt beim Aufruf übers Programm nur so ne schwammige, nichtssagende Meldung.

da könnte das hilfreich sein

Gruß Frank