delphi7在win10环境下调用word问题
最近系统升级到win10后,delphi7也自然更换了环境,结果原来调用word的程序编译后运行时总出错,提示interface not supported。我的office是2013版。
原来的程序块内容是
wordapp.Connect ;
wordapp.Visible :=true;
//创建新文档
Template:=EmptyParam;
NewTemplate:=False;
DocuType:=0;
Visible:=True;
try
WordDoc.ConnectTo(wordapp.Documents.Add(Template,NewTemplate,DocuType,wordVisible));
//WordDoc.ConnectTo(wordapp.Documents);
except
showmessage('创建新文档失败!');
end;
//插入文档
wordapp.Selection.TypeText('附图');
wordapp.Selection.TypeParagraph;//加回车形成第一个段落
此后,又根据网上资料,尝试用OBJ方式打开word 仍然报错。OBJ方式代码如下
try
FWord:=Getactiveoleobject('word.application');
except
try
FWord:=createoleobject('word.application');
showmessage('ok');
except
messagedlg('启动word失败', mterror, [mbok], 0);
abort;
end;
end;
//连接到word
try
FWord.Connect;
except
Beep;
MessageDlg('不能生成文档,请确认是否安装了Word!',mtError,[mbOK],0);
Abort;
end;
FWord.Visible:=true;//在屏幕显式显示word
//给调用Add函数使用的实参赋值
Template:=EmptyParam;
NewTemplate:=False;
DocumentType:=wdNewBlankDocument;
Visible:=true;
//调用Add函数
FDoc:=FWord.Documents.Add(Template,NewTemplate,DocumentType,Visible);
//打开文档
FWord.Visible := true;
FWord.Connect;
FDoc.Activate;
请教哪位高手遇到类似情况,如何解决?