如何将vfp的dbf中的数据批量写入word模板文件（空表）中，急用，请各位高手帮帮忙，多谢了！！！

[此贴子已经被作者于2018-1-6 00:52编辑过]

EXCEL用得多点，WORD没真正用过，建议参考VBA的用法

把模板放上来，我们学习一下

我的操作步骤：
1、建好word模板；
2、读取dbf中的数据；
3、按照需求处理数据格式；
4、定位word模板中需要写入数据的单元格位置(重点)；
5、写入数据，完成。
==================================================
仅供参考！

能把原码发上来吗？多谢！

* 现在野外，只能提供主要代码，仅供参考

wjm=SYS(5)+SYS(2003)+'\模板.doc'
Appdoc=CREATEOBJECT("Word.application")
OLEAPP=Appdoc.Application.Documents.Open[wjm] && 关键
Appdoc.VISIBLE=.T.

use 数据表
GO top
i=1
do while .NOT.eof()
   OLEAPP.tables.item(1).cell(i,1).range.text=字段 && 可添加格式设置  
   ……   && 重复
   SKIP  && 此处可以添加尾记录判断
   i=i+1
ENDDO

word文档模板

请5楼版主将代码写得再详细点，最好能写全，因为我是个新手，望不吝赐教，再次表示感谢！！！

将我提供的主要代码稍加修改即可，数据表文件呢？把数据表、word模板文件发上来，待我稍空时再写哈。

[此贴子已经被作者于2018-1-7 07:36编辑过]

查询一下word的邮件合并功能，可以将EXCEL、ACCESS、DBF等数据表的内容自动填写到指定的位置，可应用于打印成绩单、工资单等。