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'