WordApp := TWordApplication.Create(Application);
WordDoc := TWordDocument.Create(Application);1. WordApp.Visible := False;
2. WordApp.WindowState := wdWindowStateMaximize;
3. WordApp.Connect;
若在windows中有一个word时执行这个程序不会出错,但是如果windows中没有word程序的话则执行到1时就会出错,提示是'被呼叫方拒绝接收呼叫'
WordDoc := TWordDocument.Create(Application);1. WordApp.Visible := False;
2. WordApp.WindowState := wdWindowStateMaximize;
3. WordApp.Connect;
若在windows中有一个word时执行这个程序不会出错,但是如果windows中没有word程序的话则执行到1时就会出错,提示是'被呼叫方拒绝接收呼叫'
解决方案 »
- 决不吝啬分;在使用SPCOMM中Tlist出现list index out of bounds(),高手进来看看,有贴代码!
- 请教各位,删除功能中如何做到完全删除(包括SQL SERVER中的数据里的数据一齐删除)的代码写法.
- 这条查询语句应该咋写?
- 本人菜鸟,偶遇TwwLocateDialog这个东东...想要分的赶紧来..
- 请问到那里下载Qrdesign控件及补丁文件?最好是FTP站点
- 在线等待!!!Query控件的字段添加问题!
- 为什么我在自己的机子上配好odbc的程序,把程序copy在别人的机子上就不行了呢?
- 请问delphi可以开发网络软件吗?
- 怎样用虚拟键盘输入中文啊!!!DELPHI高手有知道的么????
- 请教使用ImageEN缩放图片的方法
- 江湖救急,在线等待:listView中的显示item,如何设置每项item的尺寸大小,用多行文字描述该item
- 招聘北京delphi程序员
wordapp:variant;
begin
try
wordapp:=createoleobject('word.application');
wordapp.visible:=true;
finally
wordapp:=unassigned;
end;
end;
这段代码可以调出word,可以实现跟你一样的功能
var
itemindex:olevariant;
itemindex:=1;
worddoc.connectto(wordapp.document.item(itemindex));试试这个,在网吧,也许代码不对,盲写的,
var
itemindex:olevariant;
itemindex:=1;
worddoc.connectto(wordapp.document.item(itemindex));试试这个,在网吧,也许代码不对,盲写的,
WordApp := TWordApplication.Create;
WordDoc := TWordDocument.Create;