怎样把一个Word格式文件转化为Txt文本文件

Question

procedure TForm1.Button1Click(Sender: TObject);
var
a: OleVariant;
  b: OleVariant;
begin
WordApplication1.Visible := True;
  a := 'c:\a.doc';
  WordApplication1.Documents.Open(a, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  a := 'c:\a.txt';
  b := wdFormatText;
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  WordDocument1.SaveAs(a, b);end;

Answer 1

老大再教我一招，怎么样判断一个OCX或者其他的什么组件是否安装呢？如果没有安装Word我不是死翘翘了。:)

Answer 2

这个我就不清楚了。
要么试试这个：
try
  WordApplication.Connect;
except
  ShowMessage('没有Word');
end;

Answer 3

呜呜，还有一个问题的，如果用户装的是word98或者wordxp之类的东东，那不是不能够用了。