2)在插入相应的内容时,我使用的是一个比较笨的方法,但是对于这个不规则的表格来说却可能是最有效的方法:计算出该表格中共有多个个段落,然后通过语句在所有应插入内容的段落中插入内容。也懒得自己数了,定义了一个整型变量paraCount,将其赋值为WordDoc.Paragraphs.Count,最后用一个消息框显示出来,得到该表格有38个段落,最后注释掉以上代码:)
3)接下来的工作就是数数了,数到一个该插入内容的段落,就写一段代码插入相应的内容。比如:“值班时间”(表头)是第6段,接在后面该填入内容的空白段落就是第7段,于是写代码在第7段中插入实际内容。
最后,想说的是一个在操作Word 2000时很有用的帮助文件,VBAWRD9.CHM,里面详细介绍了Word 2000中使用的VBA,里面介绍了很多有用的对象、属性和方法,还有一些VB代码作为示例,很容易可以想到对应的Delphi代码。这个文件在Office 2000的安装盘里面可以找到,具体路径忘记了,烦请搜索:)
//单击“导出到Word文档”按钮事件处理程序
procedure TfrmDetails.btnExportClick(Sender: TObject);
var
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/