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中怎样展开和关闭treeview的所有节点

Delphi try except语句 和 try finally语句用法以及区别

Delphi 获得父目录�c指定级父目录

Delphi 获取 treeview选中的文件路径

Delphi xe2获取文件的 md5、crc、sha-1、sha-256、sha-512

Delphi 标头控件(theadercontrol)中的显示复选框

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi tlistview(tlistbox+图标显示)

Delphi base32 的加密和解密

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...