Home » Tipps & Tricks » COM/OLE/DDE » Word » DOC-Datei automatisch in eine TXT-Datei konvertieren

DOC-Datei automatisch in eine TXT-Datei konvertieren

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;