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 根据快捷方式路径取源文件地址

Delphi生成随机字符串

Delphi流类 遍历读取流中的所有数据

Delphi 控制台应用程序 hello world

Delphi sql server备份脚本

Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；

Delphi 秒计算分钟、小时函数

Delphi idhttp超时重定向

Delphi 用正则表达式获取指定的字符串续取出所有符合要求的字符串

Delphi tdictionary使用范例

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

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