用delphi将word 2000文档输出为html，出现问题，请大家帮忙看看(70分)

我用delphi做了一个将word 2000文档输出为html的程序，但是运行时，老是有个对
话框弹出，提示放入office 2000的cd，但输出结果是正确的。不知那里没有控制好，

源码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,comobj, Word_TLB;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var wrd,Dc:variant;
begin
wrd:=createoleobject('word.Application');
wrd.visible:=false;
try
Dc := Wrd.Documents.open('d:/1/111.doc');
wrd.ActiveDocument.SaveAs('d:/1/111.htm',wdFormatHTML);
finally
Dc.Close(false) ;
Wrd.Quit(False) ;
end;
end;

end.

我试了一下你的程序没有问题. 估计是Word的安装问题.

不是程序的问题,是你的office 2000没有安装好.建议你重新安装offce 2000,
为了保险,全部安装.
另外office的提示中,应该有一些错误信息.你可以这样试试:
1.office提示插入CD时,不要放CD,但是按确定按钮;
2.会有下一个出错窗口,看看有没有'浏览'或'browse'等类似的按钮,
3.如果有,恭喜你,问题就会找到了,点击'浏览'按钮,弹出的文件选择框内
有一个缺省的文件名,这个文件就是没有安装好的文件.
4.如果没有,那就只好从错误信息上去找找原因了,不过我估计不容易找到.

多人接受答案了。