利用Delphi 5.0开发OLE自动化控制器操纵Excel

• 　　Template := EmptyParam;
  　　NewTemplate := False;
  　　WordApplication1.Documents.Add(Template, NewTemplate);
  　　file://建立WordDocument连接
  　　WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
  　　file://因为Word进行拼写检查需要很多时间，所以首先关闭检查
  　　WordApplication1.Options.CheckSpellingAsYouType := False;
  　　WordApplication1.Options.CheckGrammarAsYouType := False;
  　　file://将Memo1的内容拷贝到Word中
  　　SetFont;
  　　WordDocument1.Range.InsertAfter('Memo1的文本: ' ＋ ＃13＋Memo1.Text ＋ ＃13);
  　　Button2.Enabled :=True;
  　　Button3.Enabled :=True;
  　　Button1.Enabled :=False;
  　　except
  　　on E: Exception do
  　　begin
  　　ShowMessage(E.Message);
  　　WordApplication1.Disconnect;
  　　end;
  　　end;
  　　end;
  　　procedure TForm1.Button2Click(Sender: TObject);
  　　begin
  　　WordDocument1.PrintOut;
  　　end;
  　　procedure TForm1.Button3Click(Sender: TObject);
  　　var
  　　SaveChanges,OriginalFormat,RouteDocument,SavePath: OleVariant;
  　　begin
  　　SaveChanges := WdDoNotSaveChanges;
  　　OriginalFormat := UnAssigned;
  　　RouteDocument := UnAssigned;
  　　try
  　　SavePath:='c:\samp.doc';
  　　WordDocument1.SaveAs(SavePath);
  　　WordDocument1.Close;
  　　WordDocument1.Disconnect;
  　　WordApplication1.Quit(SaveChanges, OriginalFormat, RouteDocument);
  　　WordApplication1.Disconnect;
  　　close;
  　　except
  　　on E: Exception do
  　　begin
  　　Showmessage(E.Message);
  　　WordApplication1.Disconnect;
  　　end;
  　　end;
  　　end;
  　　end.
  　　运行程序，在Memo1中输入一些文字，点击“插入到Word”按钮，然后点击“打印”按钮就可以将由Memo1输入到Word中的文本打印出来。点击“退出”按钮就可以将文档保存到 c:\samp.doc 中然后关闭与Word的连接并退出。
  　　由上面的范例可以看到，Delphi对于Office组件的编程同VB是有一些相似的，由于不知道什么原因，Delphi并没有提供Office组件的帮助文档。上面的程序我是一点点摸索出来的，但是如果你掌握了Office组件的编程技巧，加上Delphi强大的功能，一定会使你的程序如虎添翼的。
  　　以上程序在Windows98、Windows2000，Delphi5.0，Office2000下运行通过。
• 上一页 [1] [2] [3] [4] [5] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 利用Delphi 5.0开发OLE自动化控制器操纵Excel 相关文章：
• ·利用插件来校验XHTML是否符合Web标准
• ·Web2.0在中国步入歧途 缺赢利模式VC有错
• ·利用UNIX的TFTP和RCP配置路由器
• ·黑客如何利用文件包含漏洞进行网站入侵
• ·利用iTextSharp生成Pdf一个小例子
• ·ASP.Net利用CSS实现多界面的方法
• ·利用XMLHTTP无刷新添加数据
• ·异域风情 奥地利美丽风景集
• ·网站优化:怎么利用Tags进行SEO
• ·利用expression实现界面对象的批量控制
• 利用Delphi 5.0开发OLE自动化控制器操纵Excel 相关软件
• ·魂之利刃4公布宣传片
• ·NDS《胜利11人DS 中文汉化版》模拟器
• ·《超级马利奥64 DS》模拟器下载
• ·《毛利元就三箭之誓》试玩
• ·NDS《哈利波特和凤凰令》模拟器
• ·亚历山大·别利亚耶夫作品集V1.0
• ·《哈利波特与凤凰社》PC版试玩
• ·秘书长——一场正义与腐败的权利博弈
• ·法拉利赛车2 汉化版
• ·《命令与征服3泰伯利亚战争》全版本修改器全集

上一篇:利用Delphi的TJPEGImage控件把BMP转化成JPEG

下一篇:扩展Delphi的线程同步对象

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐