office高级运用论文_office高级运用

office高级运用论文由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“office高级运用”。

Office办公自动化结业论文

office高级应用论文

（基于自动化技术的WPS Office文档二次开发）

中国科学技术大学 黄啸波 华东理工大学 高 玻

摘要：由于金山公司对WPS Office系列软件提供了面向自动化技术的支持，我们可以通过其它高级编程语言调用WPS Office文档，实现WPS Office文档的自动读写和交互应用．进而实现对WPS Office文档的二次开发，对该软件在大规模测试中的自动评分功能的实现提供了完整可靠的解决方案。

关键词：自动化技术WPS二次开发自动评分

中图分类号：TP311 文献标识码：B 文章编号：1671-7201(2005)09一0077一02 正文：

一个成功的办公软件必须具有足够的开放特性。才能使其从独立封闭的应用软件变为开放的办公平台。作为国人熟知件WPS，由早期单一的文字处理软件演变到现在由文字、表格、演示和邮件等组成的完整的WPS Office办公软件并且从2002版开始，提供了功能丰富的的接口函数，实现了与其它应用软件(如IE、MS Office、Lotus Notes)之间的数据交换和功能调用，为进一步开发WPS Office文档的应用奠定了基础。目前，WPS Office软件已经被成功地应用在很多办公自动化系统的软件集成中。

够使WPS Office具有如此开放特性的根本原因是WPS Office软件建立在标准的COM体系上，应用了自动化技术。本文试以在大规模计算机上机考试中对WPS Office文档的自动评分为例，介绍自动化技术的基本原理．分析自动评分的实现过程

一、自动化技术

自动化(Automation)技术是COM(Component Object Model，组件对象模型)技术的一个应用。COM由微软公司提出，它定义了组件程序之间进行交互的标准。同时也提供了组件程序运行所需的环境。自动化技术简化了COM的底层操作。将某一个应用程序的功能当作一系列的对象来向其他的外部应用程期型字段类型转换为字符型使其与姓名字段类型保持一致。在命令窗口中输入如下命令：Indexondtoc(csrq)+snametagsy5&&dtoc()函数可以将日期型字段值转换为字符型

Set order to sy

5Browse last

观察索引结果发现。姓名的排序结果也是升序。再用一个较大的日期型数据减掉当前日期后，在命令窗口中输入如下命令：

Index on dtoc(date()—csrq)+sname tagsy6

Set order to sy6

Browse last

结果又会发现一个新的错误：由于表达式(date()—csrq)的结果为数值型，而函数dtoc()的参数要求为日期型数据，因此才会出现错误的结果。那么，将函数dtoc()改为函数s旺O，应该就没有问题了吧?为此我们又改在命令窗口中输入如下命令：

Index on str(date O—csrq)+sname tagsy7

Set order to sy7

Browse last

但索引的结果(如图5所示，仍未达到题目中的要求。

仔细考虑，原因是在与日期的格式问题：Visual Foxpro 默认的日期格式为“MM-DD-YY”(即日期按月年日的顺序，且采用两位纪年)，因此添加修改年份显示格式的命令：

Set data to ymd&& 设置显示格式为“YY-MM-DD”

Set century on&&设置显示格式为“YYYY—MM—DD”

Index on str(dateO—csrq)+sname tagsy8

Set order to sy8

Browse last

得到如图6所示的索引结果，符合题目的要求，至此整个索引建立完毕。

(注：以上所有命令在WinXP操作系统和visual Fxpro6.0中运行通过)参考文献：

[1]鲁字红，樊静，王智钢．Visual FoxPr0数据 库管理系统应用教程．[M].北京：清华大学出版社，2004．

序暴露(Expose)，这个外部应用程序就可以使用这些对象，实现自动化过程。我们将WPS Office文字系统的大部分功能当作一系列对象来加以暴露，然后在另外的应用程序(如vB程序)中调用这些对象。

暴露对象的程序被称为服务器(Servers)，使用这些对象的程序被称为客户(Clients)。自动化对象可以访问自动化服务器提供的对象，获取对象的属性和方法。在这里，我们把WPS Office当作自动化服务器，把Ⅷ程序当作客户，通过自动化技术来实现对文档中所有格式和内容的读取。

图1 COM自动化对象

二、WPS Office的对象模型

WPS Office软件中提供了许多自动化对象．这些对象之间存在着继承和派生关系．形成了树状层次结构。以字处理系统为例．众多对象代表的东西，从整个字处理程序，到表格的每一单元格、文档内的每一个段落(Paragmphs)、段落内的每一个句子(Sentences)、句子内的每一单词(Words)、单词内的每一字符(Chamcters)„„无所不含。其中，Application对象是WPS Office对象模式

中的基础对象，表示文字处理程序本身。图2表示WPS Office文字对象模型(接口层次)的一部分。

图2 WPS Office文字处理对象模型

三、在VB中使用自动化技术

WPS Office应用程序本身就是自动化服务器，每个文档都由很多对象组成，获取对象的属性就能确定文档的格式和内容。同时如果向对象设置方法就可以控制文档的格式和内容。通过对象获取属性和设置方法，从而实行文档的二次开发的目的。VisualBasic应用程序与WPS Office文档之间的关系如图3：

图3 VB与WPSOffice的关系

下面以读取WPS Office2003文字文档内容为例。介绍用Ⅷ编写客户程序完成WPS Office文档的二次开发的具体方法和主要步骤：

首先，创建对象：

set MyWps=Create Object(“WPS.Apphcadon”)

My Wps．visible=true‘将对象设为可见。而不是后台操作

然后，打开指定的文档：

Myword．Documents．Open “d：＼huang＼test．wps”

再次，通过访问对象的属性和方法控制WPS Office文档：

Msgbox MyWps．ActiveDocument．fullname显示当前文档完整的路径及文件名

对象变量使用完毕后释放对象变量：

MyWps．ActiveDocumem．Close

MyWps．quit

Set MyWps=nothing

以下代码通过访问WPS Office2003文字自动化服务器提供的自动化对象的属性来获取文档中的第二段落的对齐方式是否为“居中”。

Sub Paragraphs O

SettFileRange=MyWps．ActiveDocument．Range(start：=2，End：=2)

tFileRange．Select

GetTesdResult =MyWps．Selection．ParagraphsForment.Ailgnment

If Get Test Result1 then

Msgbox“第二段落的对齐方式没有按要求设置成居中

End if

End Sub

以下代码实现了文字“软体”到“软件”的替换：

Sub ReplaceO

nResult=O

nExgCount=0

nLen=Len(“软体”)

Setdoc =MyWpsActive[)ocument

nCount=doc．Paragraphs．Count

For i=1 To nCount

parstring=doc．Paragraphs(i)

Range．Text

nResult =InStRev(parString，“软体”，vbBinaryCorIlpare)

If nResult>0 Then

Set strRange= doc．Paragraphs(i)．Range

nLenPara= strange.start

nResult=nResult一1+nLenPara

strRange．Se汛ange nResult，nResult+nLen

strRange．Text=“软件”

nExgCount=nExgCount+

1End If

Next i

End Sub

四、结论

以上两个程序只是在WPS Office文档读写的某些方面实现的二次开发，如果结合数据库技术，通过数据库实现对多文档、多对象内容的并发操作，可以大大提高二次开发的效率。利用自动化技术能够较好地解决WPS Office文档的二次开发问题，在上机操作考试中实现了快速评分，解决了试卷的软件自动评阅的难题，充分体现了软件开放性带来的便利。⑩

参考资料：

[1]潘爱民．COM原理与应用[M].北京：清华大学出版社，2001

[2]金山公司．WPS Office2003在线帮助[DB／OL】http//www.daodoc.com/Periodical_glxxxt200509039.aspx

授权使用：襄樊学院(xiangfanxy)，授权号：017e64b2-9816-4d8c-b6c7-9f0000a7b88b 下载时间：2011年6月12日