计算结果定位输出到word文档,可以实现吗?(100分)

  • 主题发起人 主题发起人 firejin
  • 开始时间 开始时间
F

firejin

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟现在做了一个工程计算的程序,想把计算之后的结果输出到已有的word文档里,直接生成计算说明书,说明书有10几页,有每个计算步骤的结果和一些表格。
不知道是否可行?如果可行,能不能给个例子啊?谢谢了。
 
var
myapp:variant;
begin
myapp :=createoleobject('word.application');
myapp.open('aa.doc');
myapp.add('说明书');
myapp.close;
end.
 
可行。
可在word里定义一些书签,如:P5_1_1,
delph查找书签实现定位,用typetext写入计算结果。
表格可直接定位.
var
tt:string;
begin
tt:=word文档路径全名;
try
V := CreateOleObject('Word.Application');
except
ShowMessage('请您安装Word97及以上版本的Microsoft Word程序!');
Exit;
end;
V.documents.add;//创建一个新文档
V.Selection.InsertFile(tt, '', False, false, false);
V.visible:=1;
v.ActiveDocument.tables.item(1).Cell(2,2).range.text:='第一个表第二行二列';
v.ActiveDocument.bookmarks.Item('P5_1_1').select;
v.selection.typetext('888888');
end;
 
谢谢了,已经搞定。uses里再加上一个ComCtrls,呵呵。
 
后退
顶部