气象业务中实现对Ｗｏｒｄ版文本的自动操纵.docVIP

气象业务中实现对Ｗｏｒｄ版文本的自动操纵 　　摘要：本文简要介绍了当前气象业务中利用传统流程处理Word版预报文本的种种不便，提出了后台自动对Word版预报文本操纵程序，并介绍了利用Visual Basic的实现过程。后台自动对Word版预报文本操纵程序能自动进行格式转化、上传和存档等等功能，能大大减少预报值班人员的工作量，是一种实用的方法。 　　关键词：气象业务；Word；自动操纵 　　中图分类号：TP319文献标识码：A文章编号：1009-3044(2008)14-20964-02 　　 　　1 引言 　　 　　Microsoft Word 是人们最喜爱的专业文字处理软件之一，适于制作各种文档，如信函、传真、公文、报刊等。我们可以使用它编排出精美的文档，绘制图片，设计表格等等； Word所提供的诸多强大的编辑功能可以使我们更加方便快速的实现自己的想法[1]。Word也是广大气象部门处理编辑各类预报文本和决策服务文本的首选文字处理软件，如短期预报文本，中长期预报文本，决策服务文本等等种类繁多，都是首先使用Word编辑处理输出图文并茂的Word文档形成文本预报产品。但是由于气象部门特定的业务需要，往往单纯的Word文档式产品满足不了气象部门的各种业务需求。例如，对于各类决策服务文本（如《天气报告》、《重大气象信息专报》等），各地市级台站都要以特定文件名的html格式文件及时上传到上级台站；另外，还有其他文本（如《周报》、《月报》等）也必须以各地不同特定格式文件（如，惠州地区特定格式为*.FHP）按时上传到上级台站。我们知道，在Word中，可以使用“文件”?C“另存为”将Word文档另存为Web页（*.html或*.htm）或文本文件（*.txt）。传统作法是预报员首先完成Word文档文本的编辑，然后再逐一另存为各种格式文件而后发送或上传以满足各种业务需要。这样，既增加预报员日常工作量，也常常会由于不同另存为各种格式文件命名的繁琐而出错导致不能达到特定业务目的。基于这种情况，我们设计了一个自动操纵Word文档的后台程序，满足气象部门日益扩展业务，而不增加预报员工作量的需要。对比图1和图2，可以看出启用后台处理程序大大减少工作量。 　　 　　2 程序主要功能介绍 　　 　　本程序是在windows 2000下，使用Visual Basic 6.0开发完成的。该程序操作界面简洁、操作简单。预报员完成编辑Word文档后，只要保存该文档，接下来只要打开该程序，点击对应的按钮，即可完成由Word到特定格式的转化以及文件上传和存档工作。例如，各气象台根据天气变化情况需要不定期制作的《天气报告》，预报员编辑完成《天气报告》，关闭编辑文档。打开本程序，点击“天气报告”按钮，接下来的另存为繁琐命名的网页HTML格式以及上传省局，还有《天气报告》存档工作都由该程序来完成。 　　 　　3 编程主要技术 　　 　　首先，操作对象是已经编辑完成的Word文档，所以必须在后台用VB后台运行WINWORD。Visual Basic中操纵Word文件，引用中加入Microsoft Word 8.0 object library，然后定义变量如下： 　　Dim appWord As Word.Application 　　Dim wrdDoc As Word.Document 　　Set appWord = New Word.Application 　　Set wrdDoc = appWord.Documents.Open(strFileName) 　　 即可轻松对指定的Word文档（strFileName）进行操纵。接下来就是对该文件的进行格式转换，在这里，可以调用Visual Basic提供的函数wrdDoc.SaveAs()对Word文档进行不同格式的另存为。其用法如下： 　　wrdDoc.SaveAs (FileName,FileFormat) 　　FileName代表文件名；FileFormat代表文件格式。其常见格式主要有： 　　wrdDoc.SaveAs ..\*.html , wdFormatHTML 把word另存为成web页.html文件 　　wrdDoc.SaveAs..\*.txt , wdFormatTEXT ’把word另存为文本文件.txt文件 　　wrdDoc.SaveAs..\*.rtf , wdFormatRTF ’把word另存为文本文件.RTF文件 　　值得注意的是，在wrdDoc.SaveAs..\*.txt 中只需把*.txt改成*.XXX，其中XXX为所需的特定格式，即可让Word另存为特定格式的文件，这样可以满足各地市一级台站以特定格式文件上传上级台站的需要。