关于使用DELPHI操作WORD文档的一个问题 50
现在用DELPHI+ACCESS来制作一个试题库输出试卷，由于试题中有各种符号和图片，所以我把试题存在一个一个小的WORD文档里，把文档的路径存放在数据库ADDRESS字...
现在用DELPHI+ACCESS来制作一个试题库输出试卷，由于试题中有各种符号和图片，所以我把试题存在一个一个小的WORD文档里，把文档的路径存放在数据库ADDRESS字段内，然后在DELPHI中通过OLECONTAINER组件显示出来，现在问题是：如何将OLECONTAINER中的内容，复制到一个WORD文档中来组成一张试卷呢，部分代码如下
try wordapplication1.Disconnect;
wordapplication1.Connect;
except
application.MessageBox('不能新建WORD文档','警告',mb_ok);
abort;
end;
wordapplication1.Visible:=false;wordapplication1.Documents.Add(template,newtemplate,documenttype,visible);
worddocument1.ConnectTo(wordapplication1.Documents.Item(itemindex));
worddocument1.Characters.Last.Select;
address:=table1.fieldbyname('ADDRESS').AsString;
olecontainer1.CreateObjectFromFile(address,false);
olecontainer1.copy;
worddocument1.Range.Paste;
wordapplication1.Visible:=true;
出现了如图的错误，
请问正确的代码应当是怎样的呢？
使用的是DELPHI7.0+ACCESS2003 出错位置在worddocument1.Range.Paste;处 展开
try wordapplication1.Disconnect;
wordapplication1.Connect;
except
application.MessageBox('不能新建WORD文档','警告',mb_ok);
abort;
end;
wordapplication1.Visible:=false;wordapplication1.Documents.Add(template,newtemplate,documenttype,visible);
worddocument1.ConnectTo(wordapplication1.Documents.Item(itemindex));
worddocument1.Characters.Last.Select;
address:=table1.fieldbyname('ADDRESS').AsString;
olecontainer1.CreateObjectFromFile(address,false);
olecontainer1.copy;
worddocument1.Range.Paste;
wordapplication1.Visible:=true;
出现了如图的错误，
请问正确的代码应当是怎样的呢？
使用的是DELPHI7.0+ACCESS2003 出错位置在worddocument1.Range.Paste;处 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
