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:
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.