如何用word object将doc文件转换成txt文件!(100分)

  • 主题发起人 主题发起人 lb2000
  • 开始时间 开始时间
L

lb2000

Unregistered / Unconfirmed
GUEST, unregistred user!
看了以前的问题,试了几天,还是出不来,
请大家帮助解决一下,给一个例子。谢谢!
 
用OLE?调用saveas 不就行了
 
var
Test:Variant;

begin
Test:=CreateOleObject('Word.Application');
Test.Documents.Open('c:/Test.Doc');
Test.ActiveDocument.SaveAs('c:/Test.Txt',2);
Test.Quit;
end;
 
可以有很多种变体的做法,本质如沈前卫说的用saveas,这段代码是D5下调试通过的
doc:='d:/test.txt';
format:=wdFormatDOSText; //2,但其实可用除系统已定义外的其余大部分如101等
Template := EmptyParam;
worddocument.SaveAs(doc,format,template);
 
多人接受答案了。
 

Similar threads

后退
顶部