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时就会出错,提示是'被呼叫方拒绝接收呼叫'
解决方案 »
- pchar 参数传递的问题!
- 连接局域网数据库需要什么条件?
- 动态sql怎么获取edit里面的多行sql?(DELPHI+SQL2000)
- 分别请教一个 DCOM 和 COM 创建步骤的例子,及其相关配置
- TChart曲线分析问题(高分)
- ++++哪一个控件能让超文本实现超连接的效果++++
- 字段的值是这样的如何用sql排序?
- ===请教一个小问题===
- 寻找 能编辑 .PDF文件的控件(ActiveX 或 VCL), 类似于Windows的RichEdit。
- 关于SQL的小问
- 江湖救急,在线等待: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;