word存为txt文本、rtf格式的文件

来源：互联网发布：青春帅哥新浪博客乐乎编辑：程序博客网时间：2024/06/13 11:18

采用OLE的方式实现word转换为文本等格式

function WordToTxt( sDocFile: string ): string;var     WordApp: Variant;begin    WordApp := CreateOleObject( 'Word.Basic' );    WordApp.visible := False;    if not VarIsEmpty(WordApp) then    begin      try        WordApp.FileOpen(sDocFile);        Result := ChangeFileExt( sDocFile, '.txt' );        WordApp.FileSaveAs( Result, 2 );  //2代表格式文本，见后面表格        WordApp.Quit;      finally        WordApp:=Unassigned;      end;               end;end;

以下为文件格式的定义

wdFormatDocument0Microsoft Office Word format.wdFormatDOSText4Microsoft DOS text format.wdFormatDOSTextLineBreaks5Microsoft DOS text with line breaks preserved.wdFormatEncodedText7Encoded text format.wdFormatFilteredHTML10Filtered HTML format.wdFormatHTML8Standard HTML format.wdFormatRTF6Rich text format (RTF).wdFormatTemplate1Word template format.wdFormatText2Microsoft Windows text format.wdFormatTextLineBreaks3Windows text format with line breaks preserved.wdFormatUnicodeText7Unicode text format.wdFormatWebArchive9Web archive format.wdFormatXML11Extensible Markup Language (XML) format.wdFormatDocument970Microsoft Word 97 document format.wdFormatDocumentDefault16Word default document file format. For Microsoft Office Word 2007, this is the DOCX format.wdFormatPDF17PDF format.wdFormatTemplate971Word 97 template format.wdFormatXMLDocument12XML document format.wdFormatXMLDocumentMacroEnabled13XML document format with macros enabled.wdFormatXMLTemplate14XML template format.wdFormatXMLTemplateMacroEnabled15XML template format with macros enabled.wdFormatXPS18XPS format.