DOC-Datei automatisch in eine TXT-Datei konvertieren |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 5 |
| Letzte Änderung | 28.09.2010 |
Der Filetyp kann alternativ folgende Parameter haben:
wdFormatDocument, wdFormatDOSText, wdFormatDOSTextLineBreaks, wdFormatEncodedText, wdFormatHTML, wdFormatRTF, wdFormatTemplate, wdFormatText, wdFormatTextLineBreaks oder wdFormatUnicodeText.
Bei enstprechender Abänderung der Routine können natürlich auch andere Formate konvertiert werden.
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;
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;