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

• 　　下面我通过具体的范例来说明对Delphi中Office对象的控制，即如何将文字输出到Word中进行简单的排版并保存和打印输出。
  　　首先建立一个新的工程，在Form1中加入三个TButton对象、一个TMemo对象、一个TWordApplication对象、一个TWordDocument对象、一个TWordFont对象。下面是Form1的代码：
  　　unit Unit1;
  　　interface
  　　uses
  　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  　　StdCtrls, ExtCtrls, Word97, OleServer,Clipbrd;
  　　type
  　　TForm1 = class(TForm)
  　　Memo1: TMemo;
  　　Button1: TButton;
  　　WordApplication1: TWordApplication;
  　　WordDocument1: TWordDocument;
  　　WordFont1: TWordFont;
  　　Button2: TButton;
  　　Button3: TButton;
  　　procedure FormCreate(Sender: TObject);
  　　procedure Button1Click(Sender: TObject);
  　　procedure Button2Click(Sender: TObject);
  　　procedure Button3Click(Sender: TObject);
  　　private
  　　{ Private declarations }
  　　public
  　　{ Public declarations }
  　　end;
  　　var
  　　Form1: TForm1;
  　　implementation
  　　{＄R ＊.DFM}
  　　procedure TForm1.FormCreate(Sender: TObject);
  　　begin
  　　Button1.Caption := '插入到Word';
  　　Button2.Caption := '打印';
  　　Button3.Caption := '退出';
  　　Button2.Enabled :=False;
  　　Button3.Enabled :=False;
  　　end;
  　　procedure TForm1.Button1Click(Sender: TObject);
  　　var
  　　Template,NewTemplate,ItemIndex:OleVariant;
  　　procedure setfont;
  　　begin
  　　WordFont1.ConnectTo(WordDocument1.Sentences.Get_Last.Font);
  　　WordFont1.Bold := 1;
  　　WordFont1.Italic := 1;
  　　WordFont1.shadow := 1;
  　　WordFont1.Size := 12;
  　　end;
  　　begin
  　　try
  　　Template := EmptyParam;
  　　NewTemplate := True;
  　　ItemIndex := 1;
  　　try
  　　Wordapplication1.Connect;
  　　except
  　　MessageDlg('无法连接，也许没有安装Word', mtError, [mbOk], 0);
  　　Abort;
  　　end;
  　　Wordapplication1.Visible := False;
  　　WordApplication1.Caption := 'Delphi Word';
  　　file://建立一个新文档
  
• 上一页 [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

特别推荐