怎样用delphi控制在word表格中添加数据？？？？？

rywln 2002-04-02 07:04:47

除了用潜换这个办法外，还有什么办法可以用delphi控制在word表格中添加数据，请各位高手帮帮忙，指示一下……，小弟在这先谢了

...全文

41 回复打赏收藏转发到动态举报

写回复

用AI写文章

切换为时间正序

请发表友善的回复…

发表回复

一段原创Delphi7.0 操作word进行word文件表格填写的代码，本人业余爱好者，如有错误，敬请诸位大猿指出。

Delphi7.0读入数据到DBGrid并向Word中插入表格，其实就是Delphi向Word中插入表格，测试数据由Delphi从SQLSERVER中读取，然后放入DBGrid中，再将DBGrid网格中的数据通过Word转换成表格。　　begin 　　 if TStringGrid(DBGrid1).RowCount>0 then 　　 begin 　　 //创建一个word对象　　 wordApp:=CreateOleObject('Word.Application'); 　　 wordApp.Visible:=true; 　　 //创建一个word文档　　 wordDoc:=wordApp.Documents.Add(); 　　 wordDoc.Select; 　　 wrdSelection:=wordApp.selection; 　　 //创建一个表格　　 wordDoc.Tables.Add(wrdSelection.Range,ADOQuery1.RecordCount 1,DBGrid1.FieldCount,2,0); 　　 for i:=1 to DBGrid1.FieldCount do //设置首行的字体为粗体　　 begin 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.Bold:=true; 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Field.FieldName); 　　 end; 　　 DBGrid1.DataSource.DataSet.First; //当前行为首行　　 for y:=2 to ADOQuery1.RecordCount 1 do //向表中添加数据　　 begin 　　 for i:=1 to DBGrid1.FieldCount do 　　 wordDoc.Tables.Item(1).Cell(y,i).Range.InsertAfter(DbGrid1.Fields[i-1].NewValue); 　　 DBGrid1.DataSource.DataSet.Next; //下一行　　 end; 　　 end 　　 else 　　 showmessage('TDBGrid表中无数据，不能向Word中插入表格。') 　　end;

1.所需的三个控件： ChooseWA: TWordApplication; ChooseWD: TWordDocument; ChooseWF: TWordFont; 2.检查计算机是否安装了WORD try ChooseWA.Connect; except MessageBox(handle,'无法链接，请确认电脑上是否安装Word XP/2003及以上版本','连接出错', MB_Ok or MB_ICONERROR); Abort; end; 3.关闭WORD拼写检查 //因为Word进行拼写检查需要很多时间，所以首先关闭检查 ChooseWA.Options.CheckSpellingAsYouType := False; ChooseWA.Options.CheckGrammarAsYouType := False; 4.新建一个文档并设置文档的标题 var NewDocument: _Document; ItemIndex: OleVariant; ItemIndex := 1; NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ChooseWD.ConnectTo(NewDocument); ChooseWD.Windows.Item(ItemIndex).Caption := '我新建的第一个文档';//此文档的第一个窗口的标题,试卷名称 5.写入数据 ChooseWD.Range.InsertAfter('第一行数据'+#13);//#13代表换行 6.设置字体格式 procedure SetFont(aBold,aItalic,aShadow,aSize:integer); begin ChooseWF.ConnectTo(ChooseWD.Sentences.Get_Last.Font); ChooseWF.Name := '宋体'; ChooseWF.Bold := aBold; ChooseWF.Italic := aItalic; ChooseWF.Shadow := aShadow; ChooseWF.Size := aSize; end; 如：SetFont(1,0,0,22);//设置字体为22号 7.向WORD中写入表格 (1)插入表格： ChooseWD.Tables.Add(ChooseWD.Words.Last, RowNum, ColNum,EmptyParam,EmptyParam);//RowNum为行数， ColNum为列数 (2)插入数据： ChooseWD.Tables.Item(1).Cell(1,1).Range.Text := '第一行第一列'; ChooseWD.Tables.Item(1).Cell(2,1).Range.Text := '第二行第一列'; 8.向WORD写入图片 var Img: TImage; MyFormat: Word; AData: Cardinal; APalette: HPALETTE; Img.Picture.LoadFromFile('文件路径');//从文件夹中导入图片至控件 Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//将图片转存到剪贴板中 Clipboard.SetAsHandle(MyFormat,AData);//将剪贴板中的图片复制出来，注意添加Clipbrd单元 ChooseWD.Sentences.Last.Paste;//在WORD中粘贴图片 9.在界面中显示WORD文档 ChooseWA.Visible:=true; 10.断开与WORD的链接 ChooseWA.Disconnect; ChooseWD.Disconnect; Chart1.SaveToBitmapFile(‘文件名.bmp’);

Delphi代码，实现了对Word内容的读取，代码中是按段落读取！

用Word做Delphi报表输出工具,对开发者有很大的帮助的，希望对大家有用处

VC/MFC

16,551

社区成员

421,606

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

VC/MFC社区版块或许是CSDN最“古老”的版块了，记忆之中，与CSDN的年龄几乎差不多。随着时间的推移，MFC技术渐渐的偏离了开发主流，若干年之后的今天，当我们面对着微软的这个经典之笔，内心充满着敬意，那些曾经的记忆，可以说代表着二十年前曾经的辉煌……
向经典致敬，或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天，我们期待着MFC技术能够恢复其曾经的辉煌，或许这个期待会永远成为一种“梦想”，或许一切皆有可能……
我们希望这个版块可以很好的适配Web时代，期待更好的互联网技术能够使得MFC技术框架得以重现活力，……

试试用AI创作助手写篇文章吧

+ 用AI写文章