1．引言在利用Delphi开发应用程序的时候，通常我们要设计出很多各种格式的文档、报表，
经常要进行文件的创建、编辑及修改，虽然Delphi本身提供了很多设计报表的控件或方法，
但是存在明显的不足，比如中文输入，数据格式的控制等操作起来比较麻烦。
利用大家都很熟悉的Office工具结合开发，能够很好的解决这方面的问题。
以下就以Delphi为例详细介绍怎么利用Office完成各种文档、报表的制作。
2．实现方法利用Delphi和Office结合开发主要有以下三种方法：
(1) 通过Delphi的控件TOleContainer 将Office嵌入，能够直接将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实现；TryWordapplication.Connect;ExceptMessageDlg('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;beginResult := True;
tryFvExcel := CreateOleObject('Excel.Application');
exceptApplication.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，增加了系统可操作性。
该思想已经在“职称评审管理信息系统”中大量使用。
//取得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;beginmemo1.Lines.Clear ;// ===== 创建对象 =====if not Assigned(WordApp) then beginWordApp:= TWordApplication.Create(nil);WordApp.Visible := false;end;if not Assigned(WordDoc) thenWordDoc:= TWordDocument.Create(nil);tryDocInx:=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 dobeginmyCell:=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 个表beginFor iRow := 1 To WordDoc.Tables.Item(i).Rows.Count dobeginmyRow:=WordDoc.Tables.Item(i).Rows.Item(iRow);//第 iRow 行For icol := 1 To myRow.Cells.Count do //第 iCol列beginmyCell:= 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 dobeginmyCell := WordDoc.Tables.Item(i).Range.Cells.Item(j);memo1.Lines.add(myCell.Range.Text);end;end;finallyif Assigned(WordDoc) then // ===== 关闭文件 =====beginWordDoc.Close;WordDoc.Disconnect;WordDoc.Destroy;WordDoc := nil;end;if Assigned(WordApp) then // ===== 关闭Word =====beginWordApp.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;图1@@ 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;图2@@ (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;图3@@ 以上几例简要介绍了使用VBA自动处理Word表格的例子(有关Visual Basic事件、方法、对象、属性的详细使用方法请参阅Microsoft Word Visual Basic帮助)。客户可将编制的Visual Basic代码作为Word宏指定到工具栏或快捷方式,方便以后的使用
经常要进行文件的创建、编辑及修改，虽然Delphi本身提供了很多设计报表的控件或方法，
但是存在明显的不足，比如中文输入，数据格式的控制等操作起来比较麻烦。
利用大家都很熟悉的Office工具结合开发，能够很好的解决这方面的问题。
以下就以Delphi为例详细介绍怎么利用Office完成各种文档、报表的制作。
2．实现方法利用Delphi和Office结合开发主要有以下三种方法：
(1) 通过Delphi的控件TOleContainer 将Office嵌入，能够直接将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实现；TryWordapplication.Connect;ExceptMessageDlg('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;beginResult := True;
tryFvExcel := CreateOleObject('Excel.Application');
exceptApplication.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，增加了系统可操作性。
该思想已经在“职称评审管理信息系统”中大量使用。
//取得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;beginmemo1.Lines.Clear ;// ===== 创建对象 =====if not Assigned(WordApp) then beginWordApp:= TWordApplication.Create(nil);WordApp.Visible := false;end;if not Assigned(WordDoc) thenWordDoc:= TWordDocument.Create(nil);tryDocInx:=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 dobeginmyCell:=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 个表beginFor iRow := 1 To WordDoc.Tables.Item(i).Rows.Count dobeginmyRow:=WordDoc.Tables.Item(i).Rows.Item(iRow);//第 iRow 行For icol := 1 To myRow.Cells.Count do //第 iCol列beginmyCell:= 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 dobeginmyCell := WordDoc.Tables.Item(i).Range.Cells.Item(j);memo1.Lines.add(myCell.Range.Text);end;end;finallyif Assigned(WordDoc) then // ===== 关闭文件 =====beginWordDoc.Close;WordDoc.Disconnect;WordDoc.Destroy;WordDoc := nil;end;if Assigned(WordApp) then // ===== 关闭Word =====beginWordApp.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;图1@@ 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;图2@@ (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;图3@@ 以上几例简要介绍了使用VBA自动处理Word表格的例子(有关Visual Basic事件、方法、对象、属性的详细使用方法请参阅Microsoft Word Visual Basic帮助)。客户可将编制的Visual Basic代码作为Word宏指定到工具栏或快捷方式,方便以后的使用
扫一扫
1548
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
