摘要：本文簡要介紹了當前氣象業(yè)務中利用傳統(tǒng)流程處理Word版預報文本的種種不便，提出了后臺自動對Word版預報文本操縱程序，并介紹了利用Visual Basic的實現(xiàn)過程。后臺自動對Word版預報文本操縱程序能自動進行格式轉化、上傳和存檔等等功能，能大大減少預報值班人員的工作量，是一種實用的方法。

關鍵詞：氣象業(yè)務；Word；自動操縱

中圖分類號：TP319文獻標識碼：A文章編號：1009-3044(2008)14-20964-02

1 引言

Microsoft Word 是人們最喜愛的專業(yè)文字處理軟件之一，適于制作各種文檔，如信函、傳真、公文、報刊等。我們可以使用它編排出精美的文檔，繪制圖片，設計表格等等； Word所提供的諸多強大的編輯功能可以使我們更加方便快速的實現(xiàn)自己的想法[1]。Word也是廣大氣象部門處理編輯各類預報文本和決策服務文本的首選文字處理軟件，如短期預報文本，中長期預報文本，決策服務文本等等種類繁多，都是首先使用Word編輯處理輸出圖文并茂的Word文檔形成文本預報產品。但是由于氣象部門特定的業(yè)務需要，往往單純的Word文檔式產品滿足不了氣象部門的各種業(yè)務需求。例如，對于各類決策服務文本（如《天氣報告》、《重大氣象信息專報》等），各地市級臺站都要以特定文件名的html格式文件及時上傳到上級臺站；另外，還有其他文本（如《周報》、《月報》等）也必須以各地不同特定格式文件（如，惠州地區(qū)特定格式為*.FHP）按時上傳到上級臺站。我們知道，在Word中，可以使用“文件”–“另存為”將Word文檔另存為Web頁（*.html或*.htm）或文本文件（*.txt）。傳統(tǒng)作法是預報員首先完成Word文檔文本的編輯，然后再逐一另存為各種格式文件而后發(fā)送或上傳以滿足各種業(yè)務需要。這樣，既增加預報員日常工作量，也常常會由于不同另存為各種格式文件命名的繁瑣而出錯導致不能達到特定業(yè)務目的?；谶@種情況，我們設計了一個自動操縱Word文檔的后臺程序，滿足氣象部門日益擴展業(yè)務，而不增加預報員工作量的需要。對比圖1和圖2，可以看出啟用后臺處理程序大大減少工作量。

2 程序主要功能介紹

本程序是在windows 2000下，使用Visual Basic 6.0開發(fā)完成的。該程序操作界面簡潔、操作簡單。預報員完成編輯Word文檔后，只要保存該文檔，接下來只要打開該程序，點擊對應的按鈕，即可完成由Word到特定格式的轉化以及文件上傳和存檔工作。例如，各氣象臺根據(jù)天氣變化情況需要不定期制作的《天氣報告》，預報員編輯完成《天氣報告》，關閉編輯文檔。打開本程序，點擊“天氣報告”按鈕，接下來的另存為繁瑣命名的網頁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提供的函數(shù)wrdDoc.SaveAs()對Word文檔進行不同格式的另存為。其用法如下：

wrdDoc.SaveAs (FileName，F(xiàn)ileFormat)

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另存為特定格式的文件，這樣可以滿足各地市一級臺站以特定格式文件上傳上級臺站的需要。如惠州局上傳文件格式為*.FHP，則用wrdDoc.SaveAs\"..\\*.FHP \" ， wdFormatTEXT語句即可達到目的。廣東省各地級臺站需要由Word文檔另存為的預報產品如表1。

退出WINWORD進程。這一步是必須的，因為只有完全退出WINWORD進程，才能對由Word文檔轉變的各種格式預報產品進行下一步操作。

對已格式轉化完成的文件進行上傳主要有兩種方式：其一，通過上傳軟件進行上傳，這個方法只需把需要上傳的文件保存在指定的文件夾即可由上傳軟件在指定的時間上傳文件；其二，可以利用Visual Basic中的api函數(shù)FtpGetFile或調用Inet控件利用FTP進行上傳[2]，可以在上述退出WINWORD進程后，就直接進行相應的上傳。

另外，對于預報產品在本地網站上的鏈接，一般也是以鏈接html格式的文件為主，所以就有必要把已經處理完成的HTML版的文本復制到本地WWW服務器上。Visual Basic中FileCopy函數(shù)可以很好的對各類文件復制。具體用法：

FileCopy source， destination

Source， 必要參數(shù)， 字符串表達式，用來表示要被復制的文件名。source可以包含目錄或文件夾、以及驅動器。Destination， 必要參數(shù)。字符串表達式，用來指定要復制的目地文件名。destination可以包含目錄或文件夾、以及驅動器。

4 結束語

隨著氣象業(yè)務的不斷擴展，Word版預報文本已經遠遠不能滿足各部門的需要。后臺自動對Word版預報文本操縱程序，具有對Word版預報文本進行自動格式轉化、自動上傳和自動存檔等等功能，能大大減少預報值班人員的工作量。達到氣象部門日益擴展業(yè)務的需要，而不增加預報員工作量的目的。

參考文獻

[1] 微軟公司. Microsoft Word幫助.

[2] 金英姿，鄧少鵬. Visual Basic實用培訓教程[M]. 人民郵電出版社，2003.

注：本文中所涉及到的圖表、注解、公式等內容請以PDF格式閱讀原文