首先在Uses单元中回入comobj类
procedure tform1.buttom(sender:tobject);
var
ol:olevariant;
begin
ol:=createoleobject('Word.Application');
ol.documents.add;
ol.range.insertafter('lkdjf');
end;
这栏调用就可以了。
procedure tform1.buttom(sender:tobject);
var
ol:olevariant;
begin
ol:=createoleobject('Word.Application');
ol.documents.add;
ol.range.insertafter('lkdjf');
end;
这栏调用就可以了。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货