转:Delphi和Office程序开发 --不错可查阅

http://www.delphifans.com/infoview/Article_730.html日期:2006年2月20日 作者:潇潇2003 人气:5602 查看:[大字体 中字体 小字体]
1.引言

在利用Delphi开发应用程序的时候,通常我们要设计出很多各种格式的文档、报表,经常要进行文件的创建、编辑及修改,虽然Delphi本身提供了很多设计报表的控件或方法,但是存在明显的不足,比如中文输入,数据格式的控制等操作起来比较麻烦。利用大家都很熟悉的Office工具结合开发,能够很好的解决这方面的问题。以下就以Delphi为例详细介绍怎么利用Office完成各种文档、报表的制作。

2.实现方法

利用Delphi和Office结合开发主要有以下三种方法:

(1) 通过Delphi的控件TOleContainer 将Office嵌入,馐亲罴虻サ腛le嵌入,能够直接将Office文档调用,只需要使用ToleContainer.Run就可以将Office文档直接启动。且这样启动的Office文档与Delphi程序是一个整体(从界面上看),但是它存在不可克服的缺点,即不能通过Delphi控制Office文档,也就不能实现将灵活操纵Office的目的。

(2) 使用Delphi提供的Servers控件调用Office,使用Office的属性,使用Delphi的Servers控件来操纵Office,在编程时Delphi能够实现代码提示,总体上看能够较好的实现Delphi对Office的控制,但是还有一些Office的功能不能在Delphi中调用(比如自己编写的VBA宏代码)。且实现功能时本来在VBA代码中可选择参数在Delphi调用的时候必须添加,否则,连编译都不能通过。这种方式启动的Office与Delphi程序分属两个窗体。

(3) 使用CreateOleObject将启动Office,然后以Ole方式对Office进行控制。这种办法是使用以CreateOleObjects方式调用Office,实际上还是Ole,但是这种方式能够真正做到完全控制Office文件,能够使用Office的所有属性,包括自己编写的VBA宏代码。与Servers控件和Com技术相比,本方法能够真正地使用Office的各种属性,和在VBA中编写自己的代码基本一样,可以缺省的代码也不需要使用。

3.软件实现

3.1 第一种方法:通过Delphi的控件TOleContainer 将Office嵌入,操作方法如下:

(1) 调用Delphi中System页控件ToleContainer实现;
(2) 双击OleContainer,出现如下界面:
(3) 这时你可以进行选择了,选择“由文件创建”,选择相应的文档,及就简单的实现了将OFFICE文档调入的功能。

3.2 第二种方法:使用Delphi提供的Servers控件调用Office;它使得我们很容易地把Office中的应用程序(Word, Excel, PowerPoint, Outlook and Access等)当作一个com应用服务器进行控制,以Word为例,介绍其实现方法:

(1) 调用TwordDocument(建立Word文件对象)、TwordApplication(启动Word并建立同Word的连接) 、TwordFont(设置Word文件的字体)、TwordParagraphFormat(设置Word文件中的段落格式)控件;
(2) 启动Word,通过TwordApplication实现;

Try
Wordapplication.Connect;
Except
MessageDlg(‘Word may not be installed‘, mtError, [mbOk], 0);
Abort;
End;

(3)创建一个新的文件,通过TwordApplication实现;

Template := EmptyParam; //表示不使用模板
NewTemplate := False; //表示新建新建文档的类型为文档,

//添加新文档

WordApplication.Documents.Add(Template, NewTemplate);
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));

//关闭拼音查找和语法查找,以便提高程序运行的效率

WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.Options.CheckGrammarAsYouType := False;

(3) 插入数据,通过TwordDocument实现;

//文本

WordDocument.Range.InsertAfter(‘Oracle数据库‘+ chr(#13));

//表格

WordDocument1.Tables.Add(WordDocument1.Range,rownum,colnum,template,newtemplate); //其中rownum是表格行数,colnum 是表格列数

//向表格中插入数据

WordDocument1.Tables.Item(1).Cell(1,1).Range.Text:=‘证书编号‘;
WordDocument1.Tables.Item(1).Cell(1,2).Range.Text:=‘身份证号码‘

(4) 格式的设置

WordFont.ConnectTo(WordDocument.Sentences.GetLast.Font); //设置某些文字
WordFont.ConnectTo(WordDocument.Paragraphs.GetLast.Font); //设置某段文字
WordFont.Bold:=1;
WordFont.Italic:=1;…………………… 

WordDocument1.PageSetup.HeaderDistance:=1.5; //设置页边距
WordDocument1.PageSetup.FooterDistance:=1.75; 

//设置页眉页脚 

WordDocument1.ActiveWindow.ActivePane.View.SeekView:=wdSeekCurrentPageFooter;
WordDocument1.ActiveWindow.ActivePane.Selection.InsertAfter(‘第‘+inttostr(wdFieldNumPages)+‘页‘);

//让页脚向右靠齐

WordDocument1.ActiveWindow.ActivePane.Selection.ParagraphFormat.Alignment:=wdAlignParagraphRight;
………………………… 

3.3第三种方法:使用CreateOleObject将启动Office,然后以Ole方式对Office进行控制。以Excel表格为例(表格的格式可以是事先设定好的,也可以是自己自由定义的,这里以事先设定好表格的格式为例),进行说明:

(1) 在Uses中添加Comobj类;
(2) 申请一个全局变量:FvExcel ,类型为Variant; 表示是Excel对象
(3) 定义一个函数用来启动Excel,如定义function OpenExcel(strFileName : string) : Boolean;

Function Tform1. OpenExcel(strFileName : string) : Boolean;
begin
Result := True;
try
FvExcel := CreateOleObject(‘Excel.Application‘);
except
Application.MessageBox(‘打开Excel失败‘,PChar(Application.Title),MB_ICONERROR);
Result := False;
end;
FvExcel.Visible := True;
FvExcel.Caption := ‘‘;
FvExcel.WorkBooks.Open(strFileName); //打开工作簿
FvExcel.WorkSheets[1].Activate; //设置第1个工作表为活动工作表
end;

(4) 向FvExcel中插入数据
FvExcel.cells[row,col].value:="中国"; //row表示行,col表示列;

(5) 设置格式

fvexcel.rows[row].font.color:=clred; //设置某一行数据的颜色
fvexcel.ActiveSheet.PageSetup.LeftMargin:=1;//设置左页边距
fvexcel.ActiveSheet.PageSetup. RightMargin:=1;//设置右页边距
fvexcel.ActiveSheet.PageSetup.Zoom:=100;//设置显示比例
fvexcel.ActiveSheet.PageSetup.PaperSize:= xlPaperA4;//设置打印纸张大小

4.一些体会

在程序设计过程中,我们很多时候要设置Office文档、表格的格式,这时要用到很多属性、方法和函数等,这些属性、方法和函数一般是平时很少用到的,如果手上没有VBA手册,很难查找到这些东西,所以,比较好的方法是首先打开OFFICE,事先做好你要设计的格式,通过OFFICE中的宏记录,然后打开OFFICE中的Visual Basic编辑器,查看代码就可以看到你的操作使用到的属性、方法或者函数了。通常很多属性、函数或者方法可以直接搬到Delphi程序中用,一部分也只要稍微修改,也可以在Delphi中使用了。

5.结束语

通过Delphi可以很完美的和Office结合,设计出各种样式的表格、文本以及幻灯片等。同时通过Delphi操作数据库,把要求的数据插入Office适当的位置,通过Office本身的功能实现预览、打印和保存,从而减少节约程序调试和定位调试的时间,简化的编程的难度,减少了程序员的工作量。对于用户来讲,采用大家熟悉的Office,增加了系统可操作性。该思想已经在“职称评审管理信息系统”中大量使用。

2006-2-15 9:19:00
发表评语»»» 

2006-2-15 9:19:32 //取得Word 表格中的数据
procedure getWordCellStr;
var WordApp: TWordApplication;
WordDoc: TWordDocument;
DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;
i,iRow,iCol:integer;
myCell:Cell;
myRow:Row;
begin
memo1.Lines.Clear ;

// ===== 创建对象 =====
if not Assigned(WordApp) then
begin
WordApp:= TWordApplication.Create(nil);
WordApp.Visible := false;
end;
if not Assigned(WordDoc) then
WordDoc:= TWordDocument.Create(nil);
try
DocInx:=1;
oFileName := ‘d:\test.doc‘;
oReadOnly:=true;
CfCversions := EmptyParam;
AddToRctFiles:= EmptyParam;
PswDocument:= EmptyParam;
PswTemplate:= EmptyParam;
oRevert:= EmptyParam;
WPswDocument:= EmptyParam;
WPswTemplate:= EmptyParam;
oFormat:= EmptyParam;
// ===== 打开文件 =====
WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,
PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);
// ===== 关联文件 =====
WordDoc.ConnectTo(WordApp.Documents.Item(DocInx)); 

//方法(1)==> 规则表
For i := 1 To WordDoc.Tables.Count do //第 i 个表
begin //第 iRow 行
For iRow := 1 To WordDoc.Tables.Item(i).Rows.Count do
begin //第 iCol列
For icol := 1 To WordDoc.Tables.Item(i).Columns.Count do
begin
myCell:=WordDoc.Tables.Item(i).Cell(iRow,icol);
memo1.Lines.add(myCell.Range.Text);
end;
end;
end;

//方法(2)==> 不规则表:只有横向合并时
For i := 1 To WordDoc.Tables.Count do //第 i 个表
begin
For iRow := 1 To WordDoc.Tables.Item(i).Rows.Count do
begin
myRow:=WordDoc.Tables.Item(i).Rows.Item(iRow);//第 iRow 行
For icol := 1 To myRow.Cells.Count do //第 iCol列
begin
myCell:= myRow.Cells.Item(iCol) ;
memo1.Lines.add(myCell.Range.Text);
end;
end;
end;

//方法(3)==> 不规则:横向、纵向合并时; 任何表格
For i := 1 To WordDoc.Tables.Count do //第 i 个表
begin //第 j 个Cell
for j := 1 To WordDoc.Tables.Item(i).Range.Cells.Count do
begin
myCell := WordDoc.Tables.Item(i).Range.Cells.Item(j);
memo1.Lines.add(myCell.Range.Text);
end;
end;

finally
if Assigned(WordDoc) then // ===== 关闭文件 =====
begin
WordDoc.Close;
WordDoc.Disconnect;
WordDoc.Destroy;
WordDoc := nil;
end;
if Assigned(WordApp) then // ===== 关闭Word =====
begin
WordApp.Quit;
WordApp.Disconnect;
WordApp.Destroy;
WordApp := nil;
end;
end;
end; 

2006-2-15 9:33:25 巧用VBA自动处理Word表格 

作者:http://w… 来源:http://www.52wg.org 更新:12/10/2005 

Microsoft Word 97是大家熟悉的文字处理软件,强大的功能为我们的工作提供了很大的帮助。而Visual Basic for Applications(VBA)的应用更为Word 97增添了不少特色,合理而恰当地使用VBA可为用户提供极大的方便。下面介绍几则使用VBA编程自动处理Word表格的例子。
   1. 创建表格,插入文字
   本例的功能是在文档开头插入一张 3 行 4 列的表格。可用For Each...Next 结构来循环遍历表格中的每个单元格。在 For Each...Next 结构中,InsertAfter 方法用来向表格单元格添加文字("第 1 单元格"、" 第 2 单元格"等等),oTable.AutoFormat属性用于指定表格套用格式。运行结果如图1:
@@0869600.JPG;图[email protected]@
   Set oDoc = ActiveDocument
   Set oTable= oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows
:=3,NumColumns:=4)
   iCount = 1
   For Each oCell In oTable.Range.Cells
   oCell.Range.InsertAfter "第 "& iCount & "单元格"
   iCount = iCount + 1
   Next oCell
   oTable.AutoFormat Format:=wdTableFormatColorful2,ApplyBorders:=True, App
lyFont:=True, ApplyColor:=True
   2. 在表格的列、行插入序号
   1. 如果需要在表格的第一列插入序号,只需将 For Each...Next 结构中的内容改为下述程序行即可,其中InsertAfter 方法用来向表格单元格添加序号("第 1 行"、" 第2 行"等等)。
   If iCount Mod 4 = 1 Then
    oCell.Range.InsertAfter"第 " & (iCount - 1) / 4 + 1 & " 行"
   End If
   iCount = iCount + 1
   2. 如果需要从表格的第二行开始插入序号,应将上述代码改为:
   If iCount Mod 4 = 1 And iCount > 4 Then
   oCell.Range.InsertAfter "第 "& (iCount - 1) / 4 & "行"
   End If
   iCount = iCount + 1
   3. 在表格的列插入日期
   (1) 如需在表格的第一列插入日期, 可用For Each...Next结构来循环遍历表格中的每个单元格,当判断某一单元格为第一列时,插入日期。Formart(Date,...)用于指定日期的格式,下面例子中的日期从Date+1(即当前日期第二天)开始,用户可以根据需要自定义。
   Set oDoc = ActiveDocument
   Set oTable =oDoc.Tables.Add(Range:=oDoc.Range(Start:=0,End:=0),NumRows:=
4,NumColumns:=4)
   iCount = 1
   For Each oCell In oTable.Range.Cells
   If iCount Mod 4 = 1 And iCount > 4 Then
    oCell.Range.InsertAfter Format(Date + (iCount - 1) / 4, "YYYY.MM.DD")
   End If
   If iCount Mod 4 = 2 And iCount > 4 Then
    oCell.Range.InsertAftercWeekName(WeekDay(Date+(iCount - 1) / 4))
   End If
   iCount = iCount + 1
   Next oCell
   oTable.AutoFormat Format:=wdTableFormatColorful1,ApplyBorders:=True, Ap
plyFont:=True, ApplyColor:=True
@@0869601.JPG;图[email protected]@
   (2) 如果需要在表格的第二列插入星期值,可在上例的For Each...Next结构中插入以下几行:
   If iCount Mod 4 = 2 And iCount > 4 Then
   oCell.Range.InsertAfter cWeekName(WeekDay(Date + (iCount - 1) / 4))
   End If
   其中,WeekDay(Date)返回一数值(1~7),分别表示"星期日"~"星期六",CWeekName数组需要事先定义为:
   Dim cWeekName(7)
   cWeekName(1) = "星期日"
   cWeekName(2) = "星期一"
   ......
   cWeekName(7) ="星期六"
   4. 根据单元格的内容设置不同的格式
   以上例中表格为例,如果需要将所有"星期六"和"星期日"所在行格式改为蓝色背景,只要在上例程序之后追加以下几行即可(表格格式改为wdTableFormatColorful2,行数改为12行)。程序中再次使用For Each...Next结构遍历表格中的每一行(Rows),如果检测到某一行满足条件("星期六"或"星期日"),则选择一行(Selection.SelectRow),将其属性改为需要的格式(本例中为蓝色背景)。
   iCount = 1
   For Each Rows In oTable.Range.Rows
   If (WeekDay(Date + (iCount - 1)) = 7 Or WeekDay(Date + (iCount - 1))= 1)
And iCount > 1
   Then
    Selection.SelectRow
    With Selection.Cells
   With .Shading
   .Texture = wdTextureNone
   .ForegroundPatternColorIndex = wdAuto
   .BackgroundPatternColorIndex = wdBlue
   End With
    End With
   End If
    iCount = iCount + 1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Next Rows
@@0869602.JPG;图[email protected]@
   以上几例简要介绍了使用VBA自动处理Word表格的例子(有关Visual Basic事件、方法、对象、属性的详细使用方法请参阅Microsoft Word Visual Basic帮助)。客户可将编制的Visual Basic代码作为Word宏指定到工具栏或快捷方式,方便以后的使用。

  

时间: 2024-10-10 09:20:31

转:Delphi和Office程序开发 --不错可查阅的相关文章

Office 365 - SharePoint 2013 Online之应用程序开发工具

1.新建一个网站集,模板选择开发人员模板,如下图: 2.确定以后,需要稍等一会儿; 3.点击网站内容,添加app,如下图: 4.进入SharePoint Store,选择Napa,如下图: 5.选择ADD IT,如下图: 6.可能需要登录,如果没有微软账号,可以注册一个,如下图: 7.点击继续,如下图: 8.Return to site,如下图: 9.点击信任他,如下图: 10.稍等片刻,就添加成功了,如下图: 11.点击进入Napa,可以在这里创建app,如下图: 总 结 试用了一下Napa,

C#开发Office程序

标题:Office 解决方案开发概述 (VSTO) 地址:https://docs.microsoft.com/zh-cn/visualstudio/vsto/office-solutions-development-overview-vsto?view=vs-2019 标题:入门 (Visual Studio 中的 Office 开发) 地址:https://docs.microsoft.com/zh-cn/visualstudio/vsto/getting-started-office-de

微信小程序开发心得

微信小程序也已出来有一段时间了,最近写了几款微信小程序项目,今天来说说感受. 首先开发一款微信小程序,最主要的就是针对于公司来运营的,因为,在申请appid(微信小程序ID号)时候,需要填写相关的公司认证信息如,营业执照等 再次就是用一个未曾开通过公众号的QQ号或微信号来注册一个微信小程序号. 最后,下载微信小程序开发工具. 由于这里,我们更多的关注如何去开发一些app,而不是科谱微信小程序,故在此不在过多的解释,详细的说明,可以去官网帮助文档. 首先,我们拿自己的项目在一步一步的说明并开发吧,

如何在程序开发项目中选择合适的 JavaScript 框架,节省时间和成本的9款极佳的JavaScript框架介绍

从技术上来看,iOS,Android 和 Windows Phone 上的移动应用是使用不同的程序语言开发的,iOS 应用使用 Objective-C,Android 应用使用 Java,而 Windows Phone 应用使用 .NET. .随着 JavaScript,CSS 和 HTML 知识技能的提升,相信你也可以构建一个超赞的移动应用.在这篇博客里,我们将会介绍一些极好的 JavaScript 移动应用程序开发框架. 说到网络开发,就不得不说 JavaScript,这是一款很有前途的程序

**iOS开发系列--IOS程序开发概览

http://www.cnblogs.com/kenshincui/p/3890880.html 概览 终于到了真正接触IOS应用程序的时刻了,之前我们花了很多时间去讨论C语言.ObjC等知识,对于很多朋友而言开发IOS第一天就想直接看到成果,看到可以运行的IOS程序.但是这里我想强调一下,前面的知识是你日后开发IOS的基础,没有那些知识你开发IOS会很痛苦,现在很多开发人员做开发都是一知半解,程序质量确实令人担忧,所以还是希望大家能够熟练掌握前面的内容,开发过程中多思考,彻底理解程序运行的原理

ASP.NET程序开发范例宝典

在整理资料时发现一些非常有用的资料源码尤其是初学者,大部分是平时用到的知识点,可以参考其实现方法,分享给大家学习,但请不要用于商业用途. 如果对你有用请多多推荐给其他人分享. 点击对应章节标题下载本章节下所有源代码. 目录: 第2章 HTML开发与实践 15 2.1 框架的使用 16 实例009 使用FrameSet框架布局聊天室 16 实例010 使用IFrame框架布局企业管理系统 17 2.2 滚屏的实现 18 实例011 滚动显示博客公告 18 实例012 滚屏效果并实现超级链接 20

delphi XE5下安卓开发技巧

delphi XE5下安卓开发技巧 一.手机快捷方式显示中文名称 project->options->Version Info-label(改成需要显示的中文名即可),但是需要安装到安卓手机才可以(IOS的没有试过) 二.使用Sqllite存储中文 SqlLite中,字段类型要设置为nvarchar,保存时,有两种方式1)用Post时,对中文的字段要进行UTF8转换先用一个string变量转换一下(不转换的话Win32编译没有问题,Android编译时出错)str_temp:=UTF8ENCO

使用delphi+intraweb进行微信开发2—intraweb以.net方式发布(以asp.net mvc4模式部署)在IIS(.net虚拟主机)上

在第一讲使用delphi+intraweb进行微信开发1--微信平台接入中我们编写了一个简单的微信接口程序,这个程序我是用Stand Alone Server / Service 方式编译的程序,并且将端口设置成80进行的微信接口测试,但是实际使用时为了更好的服务器性能我们一般采用iis作为web服务器,以往的情况下iw需要编译成isapi部署在iis上.但是由于自打iis7以后iis对isapi的态度发生了很大变化(推荐使用fastcgi了)导致编译好的isapi很难在iis7.5上部署成功,

我想要的程序开发语言特性——之“面向对象”——之“退化”

先从一个例子开始讲起,以下是jdk1.7中的迭代器接口的代码(去掉了注释的部分): public interface Iterator<E> {    boolean hasNext();    E next();    void remove();} 程序开发的老油条们都不太喜欢这个接口的remove方法,原因可能是: 我们为自己实现Iterator接口时,基本不需要这个方法,但我们却不得不@Override它,此时通常我们会直接在方法体中写一行throw new UnsupportedOp