用Delphi4.0直接控制Word97

用delphi4.0直接控制word97

编号：qa003053
建立日期: 2000年6月15日 最后修改日期：2000年6月15日
所属类别：

delphi - office开发

文章:

    摘要：玩过powerbuilder的朋友一定知道，pb中最重要的技术就是它的datawindow技术，用它来设计表单、处理数据录入、设计报表十分方便。然而delphi的报表支持功能远不及pb。delphi的专业版中包括了quickreport，不过它是集合由qsd as（一家挪威公司）授权的报表组件。当然，我们也可以使用外部报表工具，如reportsmith或cristal report。不过控制稍嫌复杂，并且它们与delphi之间缺少集成性。
    我们在开发《公文管理系统》网络版时，在实现公文打印时，尝试过不同的方法来实现。我们的要求是将一篇普通公文按公文格式打印出来，而用户能对其进行排版进行一些简单的控制。小辉刚开始是用的quickreport来试的，效果很不尽人意，特别是对一些中文格式的支持方面；后来小辉一不作二不休，干脆自己手工编写打印程序，不依赖设计工具，只可惜小辉技术不到家，写到一半时玩不下去了，只好另找出路。正好那天来了份《中国计算机报》，上面有一篇介绍如何在vb中使用excel的文章。小辉一想：何不用delphi将数据发送到word，由word来完成编辑排版工作呢？说穿了，就是用ole自动化技术。
    小辉一试，效果竟还可以。——虽然对于一个程序员来说，自己编的程序中要挂接一个别人的应用程序才能完全实现自己的功能，就象鸡群里插只鸭，心里总有点那个。但由于开发任务紧，主任又隔三隔四的来催，虽然最终有点不伦不类，小辉也顾不得那么多了。好了，废话少说，看看小辉是怎样实现的吧——
    链接：http://www.xiaohui.com
    主持人：由于原链接已经失效。我们在这里提供原文：
    一、前　言
    
    　　玩过powerbuilder的朋友一定知道，pb中最重要的技术就是它的datawindow技术，用它来设计表单、处理数据录入、设计报表十分方便。然而delphi的报表支持功能远不及pb。delphi的专业版中包括了quickreport，不过它是集合由qsd as（一家挪威公司）授权的报表组件。当然，我们也可以使用外部报表工具，如reportsmith或cristal report。不过控制稍嫌复杂，并且它们与delphi之间缺少集成性。
    　　我们在开发《公文管理系统》网络版时，在实现公文打印时，尝试过不同的方法来实现。我们的要求是将一篇普通公文按公文格式打印出来，而用户能对其进行排版进行一些简单的控制。小辉刚开始是用的quickreport来试的，效果很不尽人意，特别是对一些中文格式的支持方面；后来小辉一不作二不休，干脆自己手工编写打印程序，不依赖设计工具，只可惜小辉技术不到家，写到一半时玩不下去了，只好另找出路。正好那天来了份《中国计算机报》，上面有一篇介绍如何在vb中使用excel的文章。小辉一想：何不用delphi将数据发送到word，由word来完成编辑排版工作呢？说穿了，就是用ole自动化技术。
    　　小辉一试，效果竟还可以。——虽然对于一个程序员来说，自己编的程序中要挂接一个别人的应用程序才能完全实现自己的功能，就象鸡群里插只鸭，心里总有点那个。但由于开发任务紧，主任又隔三隔四的来催，虽然最终有点不伦不类，小辉也顾不得那么多了。好了，废话少说，看看小辉是怎样实现的吧——
    
    二、窗体设计
    
    　　说穿了其实很简单。小辉在这里做了一个简单的示例程序：
    　　1. 设置窗体form1的font.name为‘宋体’，font.size为12；
    　　2. 窗体上依次放置lable1-labe5五个tlable控件，其caption属性分别为‘文号’、‘标题’、‘收文单位’、‘正文’、‘发文单位’
    　　3. 在窗体上依次放置 tedit、tedit、tedit、tmemo、tedit五个编辑控件，其name属性分别为:ed_wenhao、ed_biaoti、ed_shouwendanwei、ed_zhenwen、ed_fawendanwei。
    　　4. 在窗体上依次放置两个tbutton控件，其name属性分别为btn_printtoword、btn_quit，caption属性分别为‘打印’和‘退出’。
    　　窗体设计格式可参考本文末所附图片。
    
    
    三、代码设计
    
    　　
    　　程序段如下所示：
    unit unit1;
    
    interface
    
    uses
    windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
    stdctrls,olectnrs,comobj;
    
    type
     tform1 = class(tform)
     label1: tlabel;
     label2: tlabel;
     label3: tlabel;
     label4: tlabel;
     label5: tlabel;
     ed_wenhao: tedit;
     ed_biaoti: tedit;
     ed_shouwendanwei: tedit;
     ed_zhenwen: tmemo;
     ed_fawendanwei: tedit;
     btn_printtoword: tbutton;
     btn_quit: tbutton;
     procedure btn_printtowordclick(sender: tobject);
     procedure btn_quitclick(sender: tobject);
     private
     { private declarations }
     public
     { public declarations }
    end;
    
    var
     form1: tform1;
    
    implementation
    
    {$r *.dfm}
    
    //开始：数据发送到word事件
    procedure tform1.btn_printtowordclick(sender: tobject);
    var
     varword: variant;// 创建word时所用
    begin
     try
     // 1. 建立oleobject，连接word97
     varword:=createoleobject('word.basic');
     // 2. 建立word97的新文件
     varword.filenew;
     // 3. 设置word97的基本状态
     varword.viewzoom75; //设置显示比例为75%
     varword.viewpage; //改为页面显示方式
     // 4. 将当前数据控件上的信息发送至word97
     // 4.1 发送文号数据
     varword.centerpara; //居中
     varword.font('宋体'); //设置字体
     varword.fontsize(14); //设置字号
     varword.insert(#13+#13+ ed_wenhao.text+#13+#13+#13);
     // 4.2 发送标题数据
     varword.font('黑体');
     varword.fontsize(16);
     varword.insert( ed_biaoti.text+#13);
     // 4.3 发送收文单位数据
     varword.leftpara; //左对齐
     varword.font('宋体');
     varword.fontsize(14);
     varword.insert(#13+ ed_shouwendanwei.text+'：'+#13);
     // 4.5 发送正文数据
     varword.fontsize(14);
     varword.insert( ed_zhenwen.text+#13);
     // 4.6 发送发文单位数据
     varword.rightpara; //右对齐
     varword.fontsize(14);
     varword.insert( ed_fawendanwei.text+#13);
     // 5 最后设置
     varword.startofdocument; //到文首
     varword.appmaximize; //设置窗口最大化
     varword.appshow; //显示应用程序
     except
     showmessage('运行 microsoft word 失败！');
     end; //end of try
    end;
    //end：数据发送到word事件
    
    
    //开始：窗口关闭事件
    procedure tform1.btn_quitclick(sender: tobject);
    begin
     close;
    end;
    //end：窗口关闭事件
    
    end.
    // 这是主程序的尾部
    
    
    四、附　注
    
    一、说明
    　　１、因只是一个演示示例，故没有与后台数据库连接起来，实际操作可将相应的tedit、tmemo控件用tdbedit、tdbmemo控件所代替，增加ttable、tdatasource等控件，连接数据库。
    　　２、本示便没有考虑如何进行批量打印
    　　３、程序在pwin97、delphi 4.0专业版、中文word97下通过。
    　　４、由于word有不同的版本，微软在每种外语中转换了一些ole自动化接口，如果用其他版本的word，本程序运行有可能出错。
    　　５、可以通过word97帮助中归结的宏命令来得到相应的驱动命令；亦或可在word97下单击［工具］菜单－－单击［自定义］－－单击［键盘］按钮，可以查看到word97中分类别显示的word命令。
    
    二、优点与缺点
    
    　　１、通过ole自动化技术，将公文的排版打印工作交给word去完成，对最终用户而言，控制较方便。
    　　２、在word97的若对数据进行了修改，则不能传回调用它的主程序，反映到数据库中。这是它的不便这处。
    　　３、本例只是在特殊情况下的一种应用，若要打印大量数据标签，制作表格，小辉觉得还是用报表灵活一些

文章来源：小辉程序员之路。