【摘 要】討論了在VFP中控制WORD的方法，重點討論了從VFP輸出數(shù)據(jù)到WORD文檔的方法。

【關(guān)鍵詞】Visual Foxpro數(shù)據(jù)輸出調(diào)用WORD

一、分析遇見的問題

目的：用VFP做關(guān)于稽征所對違章行為進行處罰的一個小系統(tǒng)，系統(tǒng)的主要內(nèi)容是：“違法案件”方面的。案件的信息量平均約有二十項左右，案件的相關(guān)信息數(shù)據(jù)是需要處理掉的，需要我們特別關(guān)注的有：案件最后的處理結(jié)果，相關(guān)每條信息都要存檔為一個分類系列中，比如：車輛交通違法行為中：交通行政執(zhí)法詢問筆錄、交通違法行為通知書、立案審批表等，很多書面的文件，都要以文檔的形式存放。每個文件的格式都是多種多樣的，一個文件至少一頁，多則達到三十多頁。JVFP在進行程序設(shè)計時，我們常使用報表來處理文檔的輸出情況，當(dāng)然了VFP在報表方面也存在了很多的不足之處，和其他的數(shù)據(jù)庫管理系統(tǒng)一樣。

（一）頁面不可以隨意改變。用戶本身不能對報表的寬度和長度進行改動；

（二）在報表的整體效果看起來不錯的情況下，就必須注意數(shù)據(jù)庫中的長度如果不一樣，就會使輸出報表中：“每個欄位、寬度”不協(xié)調(diào)，數(shù)據(jù)庫系統(tǒng)就無法根據(jù)正確的信息內(nèi)容和格式對每個欄位的寬度進行調(diào)整；

（三）數(shù)據(jù)庫報表輸出后，用戶就不可以隨意改動表格的格式了；

（四）違法信息中一些特定欄位的單獨輸出，還有一些組合輸出，現(xiàn)有系統(tǒng)是無法實現(xiàn)的。根據(jù)上述系統(tǒng)中的缺點，用報表作稽征所處罰系統(tǒng)的數(shù)據(jù)輸出載體是不適合的。

二、問題解決方法

系統(tǒng)電腦操作員可以相當(dāng)熟練的操作WODR棚，當(dāng)他們進行處罰案件中操作系統(tǒng)時，要先手動將信息輸入到WORD文檔中，然后再用WODR編輯，最后確定文件內(nèi)容后，就可以直接打印出文件。WORD相比較于VFP而言具有很多的優(yōu)點，首先它不僅具有很強的排版功能而且還具有非常高的普及度。所以WODR自然是系統(tǒng)的數(shù)據(jù)輸出載體的理想選擇。另外WORD所提供的VBS系統(tǒng)可供其它語言調(diào)用，即用命令來操作WODR的系統(tǒng)。在VFP中卻是先用CRE—ATEOBJECT（）函數(shù)創(chuàng)建”WORD對象變量，利用“面向?qū)ο蟆钡某绦蛟O(shè)計，要將自己數(shù)據(jù)庫的數(shù)據(jù)輸送到WORD中，必須調(diào)用VBS的具體命令才可以做到。在稽征處處罰系統(tǒng)中，用WORD提前制備文檔框架后，在輸出某個違法案件信息時，應(yīng)首先把這些格式文檔打開，最后將數(shù)據(jù)填上。

三、計算方法及實際例子

現(xiàn)在把相關(guān)的調(diào)用及其插入數(shù)據(jù)這一部分的關(guān)鍵詞進行一下詳解：

（一） 調(diào)用的方法

1.Word App=CREATEOBJECT（\"Word.application）定義對裂變量

Word App

首先：用定義式打開WORD 文檔，然后將打開的WORD應(yīng)用程序重新命名一個變量名，之后就可以直接對此變量進行操作。

2.將WORD文檔退出

為了避免丟失工作信息，所以我們在退出WORD文檔之前要將先前打開的其他文檔處理好，在退出前必須進行保存操作。

（二）操作此文檔

1.打開文檔

交通稽查d、交通行政執(zhí)法詢問筆錄.＼d0c）Word app.Documents.Open（c：

2.新建文檔

Word app.Document.Add

3.關(guān)閉文檔

Word app.Documents（n）.Close

4.保存文檔

Word app.Active Document.t～lves.8（\"w name）

5.多文檔進行操作

文檔：ACTIVEDOCUMENT

任意打開另一個文檔：Documents（n）或者Documents（文件名）。

注意：如果我們使用的是第一種編號方式，那么最后一次打開的那個文檔編號則為1，按照打開文檔的時間順序依次將其編號為2，3，4，5...............。

（三）輸入時的操作

在這里我們主要說一下插入時的操作，也就是把數(shù)據(jù)插入到一個現(xiàn)有內(nèi)容的收稿日期：2006-01-03這個文檔的固定位置上。

Bookmarks（n）或Bookmarks（書簽名）：這是已經(jīng)設(shè)置的第N個或某個名稱的書簽位置。

Range（m，n）：從第M個文檔開始到第N個文檔結(jié)束時的一串字符

paragraphs（N）：文檔中的第N段

上面說的這幾種方法都是絕對指代，不可以組合起來使用。當(dāng)我們插入的是一段文字或不規(guī)則表格中的一些地方時，則最好使用書簽方式；如果我們插入的是一段單獨的文字，最好使用paragraphs（N）來進行操作。因為我們單獨使用數(shù)字時較為繁瑣，經(jīng)常是結(jié)合一個特定值的時候才使用，比如Range（0.end），其中的end就是我們所設(shè)置文檔的末尾變量，所以我們要對文檔的字符=IF非常熟悉。

下面是End這種設(shè)置方法操作程序的參考示例：

通過F這種程序段將VF’I）中的數(shù)據(jù)移動到文檔中，這個文檔內(nèi)容為文件“交通行政執(zhí)法暫扣乍輛退還通知書”。

設(shè)置加：在f}l傾斜F劃線這種格式的字符錢插入數(shù)據(jù)。

WAIT正在訪問Word軟件……WINDOW NOWATI，

Word App=CREATEOBJECT（\"Word.application）

If Type（\"Word App）0

W AIT CLEAR

Message Box（”訪問Word失??！請檢查操作系統(tǒng)安裝是否正確

Word軟件！，48.沒有安裝Word?。?/p>

RETURN

ENDIF

Word App.Visible=.t.顯示W(wǎng)ORD窗口

Wdadress='c：、交通稽查＼WD

Wname=年份表達式+案件編號表達式產(chǎn)生這個案件文檔的名稱，但要注意這里所有的表達式都應(yīng)該為字符型

Word app.Documents.Open （wdadress.、交通行政執(zhí)法暫扣車輛退還通知書.do）

下面內(nèi)容是將VFP中的相關(guān)數(shù)據(jù)插入到一個文檔的指定位置，但是在插入前，必須將VFP中相關(guān)數(shù)據(jù)轉(zhuǎn)換成字符型。

比如：

Word app.Active Document.Bookmarks（1）.range.text=所名表達式+稽

Word app.Active Document.Bookmarks（2）.range.ten=年份表達式

Wonlapp.Active Document.Bookmarks（案件號）.range.text=案件編號表達式’

Word app.Active Document.paragraphs（2）..text=當(dāng)事人：+當(dāng)事人姓名表達式

（車型）.reage.text=車型表達式

（車號牌）.range.txet=車號牌表達式

Word app.Active Document.Bookmarks（所名末）.range.text=所名表達式

end=wordapp.ActiveDoument.Content.End設(shè)置文檔末尾變量

wodrapp.ActiveDocument.Range（O。Edn）.copy整篇文檔的復(fù)制

w0rId印p.Documents.Open（\"wname）這個文檔在創(chuàng)建所有的文檔之前就已經(jīng)建好了，我們將把這個案件所有相關(guān)文件的文檔內(nèi)容集合起來：

end=wordapp.Documents（\"wname）.Content.End-！設(shè)置文檔末尾變量

if lent（WodrApp.Documents（\"wname）.paragraphs（1）.Range.text）>l檢查此文檔是不是空白文檔

WodrApp.D0cuInents（wn～fle）.Raneg（end.end）.insertBreak由于每個新文檔都是從新......頁開始的，所有在文檔的末尾我們要插入分頁符

endfi

end=wordapp.Documents（\"wname）.Content.End設(shè)置文檔未尾變量

wordapp.Docyments（\"wname）.Raneg（end-！.end—1）.paste將格式文檔中的所有內(nèi)容進行粘貼

wordapp.Documents（2）.saved-.t.原來被改變的格式文檔放棄存盤

wodrapp.Documents（2）.close關(guān)閉格式文檔

wordapp.Documents（1）.close關(guān)閉案件文件文檔

releaseWordApp將WIRD這種對象變量釋放

文檔操作完成后生成的程序內(nèi)容如下：

交通行政執(zhí)法暫扣車輛退還通知書

晉交XX稽[2013]00013號

當(dāng)事人：李某

因你（單位）所屬車輛在某時某地違反了交通行政管理規(guī)定，根據(jù)《山西省公路養(yǎng)路費征收管理條例》第XX條XX款，于2013年2月1日，本交通行政執(zhí)法機構(gòu)現(xiàn)將你的三箱小轎車。車型XXX，機動車號牌為晉XXXXX的車輛依法實施行政強制措施予以暫扣。由于在法定期限內(nèi)，接受了執(zhí)法處理，并已履行，現(xiàn)將暫扣車輛退還，請查收。

謝謝配合！

取車人簽名：XX交通稽征所（印章）

2013年XX月XX日

四、結(jié)束語

我們在VFP操作中，對WORD調(diào)用操作時，還要注意兩點：

（一）必須參考WORD中的VBS（WORD要幫助目錄中的Microsoft Word Visual Basic進行參考）

（二）Word中的VBS是VisualBasic中的語言結(jié)構(gòu)。

參考文獻：

[1]東方人華.VisualFoxpro8.0入門與提高.北京：清華大學(xué)出版社，2004—8.

[2]陳亞麗等.基于Excel與OLE技術(shù)的通用報表的設(shè)計與實現(xiàn).哈爾濱：電腦學(xué)習(xí)，2005，（6）.

作者簡介：

宋國琴 肖建瓊 西華師范大學(xué)實驗中心西華師范大學(xué)助教，計算機應(yīng)用碩士，研究方向為計算機網(wǎng)絡(luò)。