本文整理自网络,侵删。
需要将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 解决timage无法在窗体resize时改变canvas的大小
Delphi sqlite incomplete input 错误
Delphi webbrowser1使用进度条查看浏览器状态
Delphi tnethttpclient https忽略证书验证
更多相关阅读请进入《Delphi》频道 >>