Datenbankinhalte in Word einfügen

**SnakeSchitt**

Hy @ all,

Ich habe vor kurzem eine Datenbank programmiert.
Nun will ich durch eine klick auf einen Button Inhalte aus der Datenbank und aus Comboboxen in ein bestehendes Word File einfügen.

Im Wordfile hab ich Platzhalter definiert.

Hier der Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TNeuenbeitraganlegen.Button_beitrag_freistellungClick(

  Sender: TObject);

var FileName:OleVariant;

  vWhat, vBookmark:OleVariant;

begin

  if OpenDialog1.Execute then

    FileName := OpenDialog1.FileName

  else

    exit;

  WordApplication1.Connect;

  WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam,

    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,

    EmptyParam, EmptyParam);

  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);

  WordApplication1.Visible := True;

  vWhat:=wdGoToBookmark;

  vBookmark:='VORNAME';

  WordApplication1.Selection.GoTo_(vWhat,emptyParam,emptyParam,vBookmark);

  WordApplication1.Selection.TypeText(ComboBox_beitrag_anlegen_vorname.text);

end;

Wenn ich das Programm nun ausführe und auf den Button klicke öffnet er mir das Word File und bricht das Ausführen des Programmes gleich ab.
Nun krieg ich die Fehlermeldung "EOleException" und dass die Textmarke von Word nicht gefunden wurde.

Wenn ich aber im Wordfile die gesetzten textmarken anschaue hat die den gleichen namen wie in meinem Delphi Code.

Was läuft hier falsch?

Danke an alle die sich meines Problemes annehmen.

Datenbankinhalte in Word einfügen

Datenbankinhalte in Word einfügen

Forumregeln