Benötige Hilfe bei Delphi, bei Einbindung eines Word Dokuments

masterofswim

Grünschnabel
Hey, ich habe folgendes Problem: Ich habe in meinen Ordner ein Word Dokument Namens : Tankdaten.docx angelegt, doch jedes mal wenn ich versuche die Verbindung herzustellen, kommt eine Fehlermeldung. Wer kann mir weiter helfen?

Die Fehlermeldung:
Project Tankprogramm.exe raised exception class EOIeException with Message 'Diese Datei wurde nicht gefunden (C:/Users/Dennis/.../Tankdaten.docx'. Porcessed stopped.


Code:
procedure TFAnwendung.Drucken1Click(Sender: TObject);
var WordTabelle: OleVariant; //Name der Tabelle die erzeugt werden soll
    FileName, docx :OleVariant; //Schnittstellenvariable
begin
  //Name des zu öffnenden Dokumentes
  FileName := 'C:\Users\Dennis\Delphi Projekte\Projekte\Tankdaten.docx';
  //Verbindung zu Word aktivieren
  WordApplication1.Connect;
  //Dokument öffnen
  WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam,
                                     EmptyParam, EmptyParam, EmptyParam,
                                     EmptyParam, EmptyParam, EmptyParam,
                                     EmptyParam);
  //Verbindung zum aktiven Dokument
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  //Word sichtbar machen
  WordApplication1.Visible := True;
  //Übergabe des aktiven Dokumentsin die Variable doc
  docx := WordApplication1.ActiveDocument;
  //Tabelle erzeugen  mit 5 Zeilen und 5 Spalten
  WordTabelle := docx.Tables.Add(WordApplication1.selection.range, 5, 5,
                 emptyParam,emptyParam) ;
  //Keine Rahmen: links, rechts, oben, unten
  WordTabelle.borders.item(wdBorderLeft).LineStyle := wdLineStyleNone;
  WordTabelle.Borders.item(wdBorderRight).LineStyle := wdLineStyleNone;
  WordTabelle.Borders.item(wdBorderTop).LineStyle := wdLineStyleNone;
  WordTabelle.Borders.item(wdBorderBottom).LineStyle := wdLineStyleNone;

  //******************!!Der Index einer Tabelle in Word beginnt immer mit 1,
  //nicht mit 0 wie in Delphi******************************************!!
  //Schriftgröße in der 2. Zeile und 2. Spalte auf 14 setzen
  WordTabelle.cell(2,2).range.font.size := 14;
  //Schriftgrad in der 2. Zeile und 2.Spalte aud Fett setzen
  WordTabelle.cell(2,2).range.font.bold := true;
  //Textübergabe in die 2. Zeile und 2. Spalte
  WordTabelle.cell(2,2).range.text := 'Testdaten';
end;


Gepostet habe ich diese Frage außerdem hier:

http://www.delphi-forum.de/viewtopic.php?t=108837
 
Zurück