vba、word和数据库的联合编程

1 / 5VBA、Word 和数据库 的联合编程摘要 介绍了用 VBA 作为开发语言,用 Access 或foxpro 作为数据库, 用 word 中的书签作为媒介，实现数据库在 Word 中的自动替换方法，并以通知书为例给出了源程序。关键词 VBA Word 数据库 bookmark(书签)在实际工作中，常常需要将数据库中的数据放在Word 文挡中。例如学校每期都要将学生的成绩填入到通知书中寄发给学生。传统的实现方法是在 Word 手工输入或用数据库软件编写一个专门的程序(模块)来完成此项工作。采用 VBA 作为开发语言,用宏命令的方法实现了 Access 数据库或 foxpro 数据库中的数据在 Word 中的自动成批替换。1 实现方法先在 Word 中建立一个名为“通知书.dot”的模板，将通知书中固定的文字内容输入到该模板中, 将变动的文字内容(取数据库中的字段值)设置成书签(右图中的name、math 等)。为了编程方便，书签名可取数据库表中相应的字段名。完成后存入 Office 的 Templates(模板)目录下。2 / 5要实现 VBA 与数据库 Microsoft Access 97 的连接,在Word 中选主菜单 ”工具宏宏名”打开 Visual Basic 编辑器；选 VBA 主菜单条上工具菜单项下的引用命令，激活引用对话框，从可使用的引用列表中选择 Microsoft DAO / Compatibility Libray 一项，然后单击确定按钮，把它引用到工程中来。接下来在模板中编写出一条宏命令，直接在 Word 中用程序代码实现对数据库的读取。对 Access 数据库，用语句Set md = DBEngine. OpenDatabase (“成绩库.mdb”)打开名为“成绩库.mdb”的数据库，用语句 Set rs = md. OpenRecordset(学生成绩表, dbOpenTable) 打开数据库中的表名为学生成绩表的记录集，本命令只对记录集进行查询，为了提高查询速度，选择了快照 dbOpenSnapShot类型的记录。对于 foxpro 的 dbf 数据库,用语句 Set md = OpenDatabase(d:grade学生成绩表, False, False, foxpro )打开名为“成绩库.dbf”的数据库，用语句 Set rs = (学生成绩表)的记录集。因为数据库中一条记录对应一个学生，每个学生都要打印一份通知书，都要用通知书的内容，要将模板中的通知书全部内容复制到一个新建的临时文档中，处理完一条记录后，把通知书内容从新建的临时文挡中复制过来供下一条记录使用。对于每个通知书(对应一条记录)，用循环将数据表中的字段名用数组的3 / 5形式保存，再根据通知书中的书签名与保存的字段名比较，如果存在则用语句 (i).Select 选择的书签名, 用数据表中相应的字段值(字段名)来替代文档中的所选择的书签名。右图为运行宏命令后的一个通知书。2 源程序清单 从数据题中读取数据的宏,在 Word97(2000)上调试运行开发者：湖南工程学院 陈华光Sub start()Dim i, j, k, m, nrecord , txtnumber As IntegerDim aname(1 To 20) As StringSet md = (D:grade成绩库.mdb)Set rs = (学生成绩表, dbOpenTable)Set mydoc1 = ActiveDocumenttxtnumber = Set range1 = (start:=0, End:=txtnumber)mydoc2 = Set range2 = (start:=0, End:=txtnumber)On Error Resume Next4 / 5nrecord = On Error GoTo doerrorFor k = 1 To 20aname(k) = (k).nameNext kdoerror:For m = 1 To nrecordIf m = 1 Then Else For k = 1 To 5totalnumber = 已存在的书签数For i = totalnumber To 1 Step -1bname = (aname(k)If UCase$(i).name) = UCase$(aname(k) Then(i).SelectText:=bnameEnd IfNext iNext kUnit:=wdLine, Coun