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’);
2024-01-17 22:00:13 2KB delphi word
1
在word中根据表头动态增加表格行,然后把数据中数据中写入表格中。
2023-04-18 15:38:50 12KB c# word
1
NFC开发学习可以参考此代码, 提供的Android 实现了NFC编程,能实现对IC卡的写入、数据读取等操作 ,稍后还会提供完整版的android nfc的前后台功能。敬请期待。
2023-02-12 00:19:02 180KB android nfc ic
1
主要为大家详细介绍了python写入数据到csv或xlsx文件的3种方法,具有一定的参考价值,感兴趣的小伙伴们可以参考一下
1
java操作excel(包括读取数据和写入数据)亲自测试成功 可以直接使用 控制台输出如下: 工作表名称:Sheet1 姓名 年龄 张三 18 李四 19 王五 20 工作表名称:Sheet2 工作表名称:Sheet3
2022-08-23 12:18:18 20.53MB java poi 读取 写入
1
岛电温控仪MR13RS485通讯读取数据写入数据
2022-08-10 09:48:48 22KB 岛电 MR13 RS485
1
程序共能是向固定文件夹下的TXT文件写入随机数据 不懂得加
2022-05-19 11:29:47 2KB verilog fpga tb
1
主要使用itextpdf包,通过Adobe Acrobat DC生成pdf模板,并向模板中写入数据,生成新的pdf文档
2022-04-12 19:36:10 13KB pdf模板
1
主要介绍了Java实现批量向mysql写入数据的方法,涉及java基于JDBC连接mysql数据库及写入数据的相关操作技巧,非常简单实用,需要的朋友可以参考下
2022-03-07 20:53:03 38KB Java 批量 mysql 写入数据
1
在本教程中,您将学习如何在一个简单的项目中使用Arduino将SD和micro SD卡与环境温度进行测量。
2022-02-26 20:42:52 416KB home automation robotics sd
1