如何将word文档转换成text?

Question

现在我写个文档管理的程序,需要将word文档的文档内容提出来存为文本,请问哪位高手有办法.

Answer 1

可以用OLE Automation.
你先在word用宏录制将VBA代码录过来，再翻译成delphi就可以了。

Answer 2

其实用saves就可以了吧！把word文档另存为txt文件就可以了，
下面给个例子：
var
  Test:Variant;
begin
  Test:=CreateOleObject('Word.Application');
  Test.Documents.Open('c:\Test.Doc');
  Test.ActiveDocument.SaveAs('c:\Test.Txt',2);
  Test.Quit;
end; 

Answer 3

用vba这个方法很好
就是怕慢了点