不爽 散分**********************************

Question

不爽 散分**********************************
狂晕不知道是delphi出了问题还是我的机子有了病毒
以前写的东西现在编译都通不过了我日哦。还有看哈这段
代码你们可以编译通过不？
10：10揭帖

Answer 1

procedure TForm1.DOCHtml1Click(Sender: TObject);
var
dd,aa:olevariant;
ii:integer;
sdir:string;
begin
for ii:=0 to (filelistbox1.Count-1) do
begin
filelistbox1.ItemIndex:=ii;
dd:=createoleobject('word.application');
aa:=dd.Documents.Open(filelistbox1.FileName);
sdir:=ExtractFileName(filelistbox1.FileName);
sdir:=copy(sdir,1,length(sdir)-4);
sdir:=filelistbox1.Directory+'\'+sdir+'.htm' ;
//showmessage(sdir);
aa.saveas(sdir,8);
aa.close;
end;
dd.quit;
end;

Answer 2

没有filelistbox1.Count,是否filelistbox1.items.Count

Answer 3

to netwolfds(晓竹)  
有 filelistbox1.count  

Answer 4

加上 uses ComObj;
就通过了啊。

Answer 5

倒把 dd:=createoleobject('word.application'); 移到循环外面去：var
dd,aa:olevariant;
ii:integer;
sdir:string;
begin
dd:=createoleobject('word.application');
for ii:=0 to (filelistbox1.Count-1) do
begin
filelistbox1.ItemIndex:=ii;
aa:=dd.Documents.Open(filelistbox1.FileName);
sdir:=ExtractFileName(filelistbox1.FileName);
sdir:=copy(sdir,1,length(sdir)-4);
sdir:=filelistbox1.Directory+'\'+sdir+'.htm' ;
//showmessage(sdir);
aa.saveas(sdir,8);
aa.close;
end;
dd.quit;