txt zu doc konvertieren

[Newcomer91]

Okay,

Mein Ziel: txt in doc konvertieren // Bei klick auf Button

der code für diese operation:

Delphi-Quellcode:

procedure TForm1.DOC2Text(InFile, OutFile: OleVariant);
var Filetyp: OleVariant;
begin
  WordApplication1.Connect;
  try
    // Hiermit wird das Word Formular sichtbar (nützlich für Debugging :)
    //WordApplication1.Visible := True;
    WordApplication1.Documents.Open(InFile, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
    EmptyParam);
    WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
    Filetyp := wdFormatText;
    WordDocument1.SaveAs(OutFile,Filetyp);
    WordDocument1.Close;
    WordDocument1.Disconnect;
  finally
    WordApplication1.Disconnect;
    WordApplication1.Quit;
  end;
end;

Problemstellung: mit diesem code wandelt man doc in txt um. Es soll genau andersherum funktionieren,
als ich es allerdings umschreiben wollte, merkte ich dass es nicht funktioniert.

So hatte ich es umgeändert:

Delphi-Quellcode:

procedure TfrmNotepad.Button1Click(Sender: TObject);
begin
  WordApplication1.Connect;
  try
    WordApplication1.Visible := True;
    WordApplication1.Documents.Open(getOutputFilename);
    WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
    WordDocument1.Close;
    WordDocument1.Disconnect;
  finally
    WordApplication1.Disconnect;
    WordApplication1.Quit;
  end;
end;

Fehlermeldung: 'Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen'