巧用VB连接WORD文档

巧用VB连接WORD文档

路　平¹　樊　荣

摘　要　本文介绍了使用V B控制W OR D和连接WO RD文档的编程实现,阐述了Office A ctiv eXT M技术及V isual Basic中面向对象的编程概念。这对于要求Office功能的V isual Basic应用系统的开发具有普遍意义。

关键词　V B　W O RD　A ctiv eXT M　OF FICE　对象

一、引言

随着W indo w s应用的不断深入,V isualBaisc以简单易用并能快速构建应用程序而得到广泛的应用。O ffice的兴起,使越来越多的应用系统要求Office功能如文字处理,打印,统计等等。笔者在用V B开发试题库组卷系统中,需要将多个Wo rd文档(试题)连接成一个W or d文档(试卷)并打印。当然用W or d宏可以完成,但W or d宏必须在Wo rd内使用并不适用于应用系统的开发。能不能直接在V B中控制W or d在后台完成上述操作呢?回答是肯定的。应用V isual Basic的O bject 技术O ffice的A ctiv eXT M技术能有效解决。

二、对象编程和ActiveXTM技术

对象是代码和数据和集合,可以作为一个单位来处理。对象可以是应用程序的一部分,比如可以是控件或窗口。整个应用程序也是一个对象。Visual Basic提供了把来自不同资源的对象组合起来的工具。现在可把V isua l Basic的各种强有力的特性以及支持自动化的应用程序结合起来,建立定制的解决方法。自动化是部件对象模式(COM)的一个特性,它是应用程序使用的工业标准,用来陈列对象以开发工具和其它应用程序。

A ctiv eX T M技术是将现已存在的、完善的应用程序片断连在一起的强有力手段。Office应用程序支持A ctiveX T M技术,提供了能从Visual Basic应用程序内部来程序化操纵的对象。例如,在应用程序中,可以使用M icro soft Ex cel的电子数据表、M icro soft Wo rd的文档或者M icr oso ft A ccess数据库的属性、方法和事件。

使用A ctiveX T M部件提供的对象与操作其他对象的方法十分相似。首先将一个对象引用赋值给变量,然后编写使用对象的方法、属性与事件的代码。

O ffice应用程序和其它A ctiv eX T M部件,在它们的对象层次中提供了一个顶层外部可创建对象:

・提供了对该层次中其它对象的访问

・提供对整个应用程序起作用的方法和属性

例如,每个M icr oso ft O ffice应用程序提供一个顶层Ap-plicatio n对象。下面的例子显示如何赋值给M icro soft Ex cel 的A pplicatio n对象的引用。

Dim Ex cel A pp As Ex cel.Applica tio n

Set Ex cel A pp=N ew Ex cel.A pplicatio n

然后,可以用这些变量来访问在每个应用程序中的从属对象、以及这些对象的属性和方法。

三、编程实例:VB连接WORD文档

笔者在试题库组卷系统开发中,需要将多道试题(WO RD 文档)自动连接成一份试卷(WO RD)文档。使用V B的Object 与A ct iveX T M编程技术可方便实现。

1.引用word对象

在应用程序中,在使用对象的属性、方法和事件之前,必须先声明对象变量,然后将对象引用赋予该变量。

・首先从“工程”菜单中选择“引用”

・在“引用”对话框中,选择M icro soft Wo rd8.0Object Librar y。(如图

1)

图1　工程引用对话框

・在程序中添加如下代码:

Dim o bjw or d A s Object

¹路　平　华中理工大学汉口分校化工系　武汉　430012

Dim wb A s object

Set O bjw or d=Cr eateObject ("Wo rd.A pplication")Set w b=objw or d.Do cuments

为使W OR D 在后台进行,可添加以下代码:obw or d.V isible=false 2.连接word 文档

可以调用W ORD A pplication 对象的子对象D ocument 的Open filename 方法打开试卷的头文件(如图2),代码如下

:

然后使用A plicatio n 对象的子对象Select ion 的Insert-File filename 方法连接wo rd 文档(如图3),代码如下

:

objw or d.Selectio n.I nser tFile filenam e:F name,Range:=""

Confir mConv er sio ns:=False,link:=False,A tt achment:=Fa lse

其中F name 为连接w or d 文件名

最后将连接好的W or d 文件保存:

objw o rd.A ctiv eDo cument.Sav eAs Cur Dir &"\"&"o-jbect.doc"

3.释放WORD 对象

在使用完W or d 后应关闭Wo rd:Set objw o rd.=N o thing Set w b=N o thing

四、应用前景

Office 的日益流行,使其成为桌面办公的主流产品,而VB 又作为快速应用系统开发工具逐渐被广大用户所接受。VB 的O bject 技术和O ffice 的A ctiv eX T M A utom atio n 支持,使的V B 成为具有Office 功能的应用系统开发的强有力工具。V B 灵活的后台调用O ffice,使应用系统在外部具有Of-fice 的功能。

参考文献

[1]M icro softCo rpor ation 《V isual Basic 联机手册》Ver sio n 1.

0@1991-1997

[2](美)A nt ho ny T .M ann.《V isual Basic 5.0实用编程技术》

[M ]北京,清华大学出版社,1998

[3](美)N oel Jerke 等,《A ctiv e 开发人员指南》[M ]北京,机械工业出版社,1997

(收稿日期:2001年3月14日)

投稿须知

一、来稿应反映当前国内外计算机科技的先进理论、应用研究、技术成果和发展趋势。

二、要求打印稿文图清晰,字数控制在6000字以内,其中包括图表和空格所占的版面。凡附盘寄来文稿者,优先录用。三、用Email 投稿、要求使用Wor d 97或Word 2000,不得使用携带病毒的工具。

四、打印次序为:(1)题目、(2)姓名、单位、职称、邮编、(3)摘要、(4)关键词、(5)中图分类号、(6)正文、(7)参考文献、(8)英文题目、(9)英文或汉语拼音作者姓名、(10)英文作者单位、(11)英文摘要、(12)英文关键词。五、200字左右的摘要应准确反映论文的关键和重点。关键词3-5个;题目、摘要、关键词皆中英文对照且中英文含意相符;尤其是英文力求语法正确流畅通俗。

六、参考文献3-6篇、并按序号、作者、题目、出处列出。

七、给出作者简介(姓名、工作单位、职称、城市、邮编)详细通信地址、邮编及电话等、以便联系。

来稿请寄:上海市华山路1954号交通大学内

《微型电脑应用》编辑部 邮编200030