DBGrid in MS-Word exportieren und Text einfügen

**localh0st**

Hallo,

ich habe es mit folgendem Beispiel geschafft, mein DB-Grid in Word zu exportieren:

http://delphi.cjcsoft.net//viewthread.php?tid=47128

Ich möchte nun gerne mittels OLE-Automation darüber, sowie darunter Text in das Dokument schreiben können.

Das mache ich folgendermaßen:

zusammenfalten · markieren

Delphi-Quellcode:

			begin

  try

    Word := CreateOleObject('Word.Application');

  except

    ShowMessage('Fehler.');

    exit;

  end;

  WordDokument := Word.Application.Documents.Add;

  Word.Visible := true;

   // Schriftart für die Überschrift

  Word.Selection.Font.Name := 'Calibri';

  Word.Selection.Font.Size := 20;

  Word.Selection.ParagraphFormat.Alignment := 1;

  // Überschrift

  Word.Selection.TypeText('EinText');

  // Schriftart für restlichen Text

  Word.Selection.Font.Size := 11;

  Word.Selection.ParagraphFormat.Alignment := 0;

  // Text einfügen

  Word.Selection.TypeText('Firma: Musterfirma GmbH'+#13);

  Word.Selection.TypeText('Mitarbeiter: '+Vorname+' '+Nachname+#13);

  Word.Selection.TypeText('Personalnummer: '+inttostr(PersonalNr)+#13+#13);

end;

//DB-Grid einfügen

Ich habe schon versucht den Code der verlinkten Seite einzubauen. Er erstellt mir daraufhin aber immer nur ein Dokument mit dem Grid und übernimmt den Text nicht. Natürlich habe ich das erstellen des Dokuments aus dem verlinkten Code herausgenommen, sodass nur ein Dokument erstellt wird.

Hat hier jemand einen Ansatz?

Dankeschön.

DBGrid in MS-Word exportieren und Text einfügen

DBGrid in MS-Word exportieren und Text einfügen

Forumregeln