delphi DOC转TXT

本文整理自网络，侵删。

 需要将doc文档里面的文字保存成txt里面文字，也是手头程序的一个功能。下面代码是测试代码，不过已经实现应该有的功能，如需使用，可以进一步封装。
uses ComObj,

procedure change(fn:string);
var
filename:String;
patch:string;
begin
patch:=ExtractFilePath(ParamStr(0));
filename:=PChar(fn);
MSWord:=CreateOleObject('Word.Application');
MSWord.Documents.Open(patch+'test.doc');
MSWord.ActiveDocument.SaveAs(patch+'Test.Txt',2);
MSWord.quit;
end; 

相关阅读 >>

Delphi 十六进制字符串转化成字符串输出hextostr strtohex（Delphi版、c#版）

Delphi winapi: getwindowthreadprocessid - 获取指定窗口的进程 id 或线程 id

Delphi 删除cookies文件

Delphi 主窗体最小化时不显示在任务栏

Delphi中读取指定内存地址的值

Delphi防止同时出现多个应用程序实例

Delphi winsock 域名获取远程服务器ip

Delphi wmi获取网卡mac

Delphi 一个不错的枚举进程例子

Delphi 按字符串长度对tstringlist的元素进行排序

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi DOC转TXT