如何利用OLE打开WORD? 如何利用OLE打开WORD? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 OLE控件?OleContainer1.CreateObjectFromFile('c:\mydoc.doc', False); 加入comobj单元;var wordapp,doc,rag,tab:variant;begin wordapp:=createoleobject('word.application'); wordapp.visible:=true;try doc:=wordapp.documents.add; rag:=doc.paragraphs.last.range; tab:=doc.tables.add(rag,6,8,0,0);//6row,8col tabelfinally tab:=unassigned; rag:=unassigned; doc:=unassigned; wordapp:=unassigned;end;end; uses Comobj;tryeclApp:=CreateOleObject(‘Excel.Application’);ExceptShowmessage('You Have not Install MS_Word');Exit;End;eclApp.WorkBooks.Open(YourWordFileName); 如果你不是必须用程序往WORD写东西的话。建议用shellexectra函数(名字可能不太对,但前5个字母是对的)。因为用OLE有好多的麻烦。比如初始化等 ADOTable Inno setup, 如何画一个矩形? 求助!请问怎样用delphi来播放VOX文件? dbgird中选择多条记录,如何批量更新某一字段值? 散分!深圳的朋友顺道进来看看!!! 门外汉求助 李维的Inside VCL一書中有關繼承的部分講到…… 字符串组合问题 怎样取得本机的计算机名和本机sql server 2000服务器名 请教:TreeView 的节点能否拖放到另一个节点,象资源管理器一样。怎么实现? 获取句柄后的问题 如何让dbCombobox能接受手动输入值和从下拉框中提取值并存?
wordapp,doc,rag,tab:variant;
begin
wordapp:=createoleobject('word.application');
wordapp.visible:=true;
try
doc:=wordapp.documents.add;
rag:=doc.paragraphs.last.range;
tab:=doc.tables.add(rag,6,8,0,0);//6row,8col tabel
finally
tab:=unassigned;
rag:=unassigned;
doc:=unassigned;
wordapp:=unassigned;
end;
end;
try
eclApp:=CreateOleObject(‘Excel.Application’);
Except
Showmessage('You Have not Install MS_Word');
Exit;
End;
eclApp.WorkBooks.Open(YourWordFileName);