1、lotus 平臺(tái)下辦公自動(dòng)化中文檔修改痕跡保留的實(shí)現(xiàn)陳敏宇(福建省高速大路有限責(zé)任公司，福州 350001)摘 要 本文簡(jiǎn)要爭(zhēng)辯基于 lotus domino/notes 的辦公自動(dòng)化系統(tǒng)中文檔修改痕跡的保留，并給出了具體的實(shí)現(xiàn)步驟、方法及相關(guān)源程序。關(guān)鍵詞 lotus office 文檔 痕跡保留 辦公自動(dòng)化1 痕跡保留的現(xiàn)狀與思考隨著政府機(jī)關(guān)和很多企事業(yè)單位網(wǎng)絡(luò)建設(shè)逐步完成，對(duì)于在如何利用網(wǎng)絡(luò)，如何表現(xiàn)出網(wǎng)絡(luò)的優(yōu)勢(shì)方面，用戶最簡(jiǎn)潔想到，同時(shí)也是最簡(jiǎn)潔產(chǎn)生效果的應(yīng)用，就是辦公自動(dòng)化系統(tǒng)(oa)。從目前的狀況來看，市場(chǎng)上對(duì)基于 lotus domino/notes 的辦公自動(dòng)化系統(tǒng)有比較旺盛的

2、需求。修改痕跡的保留是辦公自動(dòng)化系統(tǒng)的一個(gè)難點(diǎn)，很多基于 b/s 模式的oa 系統(tǒng)處理的方法是：word文件只是簡(jiǎn)潔的作為一個(gè)表單附件，在需要使用的時(shí)候調(diào)出來進(jìn)行操作。但這一方法的缺點(diǎn)是沒有對(duì) word 文檔進(jìn)行相關(guān)的把握。公文所要求的格式需要流程走完后由秘書或相關(guān)人員對(duì) word 文檔進(jìn)行相關(guān)處理，生成正式文件，在打印時(shí)無法滿足國(guó)家對(duì)公文格式的要求。還有一種做法就是使用一個(gè) rtf 域來代替 word，但這樣做是以犧牲了用戶的習(xí)慣和字處理功能為代價(jià)的，而且效果往往不見得抱負(fù)。國(guó)內(nèi)的絕大部分 oa 產(chǎn)品都供應(yīng)了對(duì)修改的痕跡保留，版本保存的功能，但大多都缺乏一個(gè)有效的方法來愛護(hù)修改痕跡，無法防范

3、應(yīng)用水平高的用戶對(duì)痕跡進(jìn)行篡改，刪除，拒絕。也就是說，假如一個(gè)用戶在 word 的“用戶信息“設(shè)置中修改了自己的用戶名，那么該用戶此后對(duì)文件的修改將“嫁禍“到他人名下或可通過接受修訂的功能來屏蔽用戶的修改。這是由于這些 oa 產(chǎn)品和 word 結(jié)合得還不夠緊密，word 無法依據(jù) oa 系統(tǒng)中的用戶設(shè)置來取得真正的用戶名，無法保證修改的完整性。目前，修改痕跡的保留較好的處理方法有兩種，一種是重新設(shè)計(jì)專用編輯器，另一種是調(diào)用 ms office 字處理軟件，通過對(duì)word 的編程，實(shí)現(xiàn)對(duì)修改痕跡的保留。從理論上來看，應(yīng)當(dāng)是第一種方法比較好，但重新開發(fā)一套功能完善的字處理軟件并不是一件易事，費(fèi)時(shí)費(fèi)

4、勁，如接受其次種方法則簡(jiǎn)潔得多，可以充分利用word 強(qiáng)大的編輯功能，以及痕跡保留及批注功能，省下大量時(shí)間。本文接受其次種方法實(shí)現(xiàn)對(duì)修改痕跡的保留。2 痕跡保留的具體實(shí)現(xiàn)com 技術(shù)在 notes 程序中的運(yùn)用，極大豐富了 notes 應(yīng)用的功能和應(yīng)用范圍，要在 domino designer 中使用 ms office com 對(duì)象，必需確認(rèn)使用了正確的對(duì)象庫，當(dāng)安裝了 office 后，這些庫就能在domino designer 自動(dòng)顯示出來，雖然這些不是精確意義上的ole 類，它們還是顯示在了domino designer 設(shè)計(jì)界面“參考“附簽中的“ole classes“分類下。其中，

5、word 8.0 對(duì)應(yīng) office97, word 9.0 對(duì)應(yīng) office2000。為了確保該集成應(yīng)用能正確運(yùn)行，用戶應(yīng)在本地注冊(cè)表中正確注冊(cè)了相應(yīng)的 windows 應(yīng)用程序（如 word 或 excel）。在使用 ms word 的 com 接口之前，必需先理解 ms word 對(duì)象層次關(guān)系結(jié)構(gòu)， 具體內(nèi)容可在 ms office 掛念中“visual basic 入門指南“下的“microsoft word 對(duì)象“一節(jié)中查閱。比如你要對(duì) document 對(duì)象進(jìn)行操作，可查到document 對(duì)象的全部方法和屬性，再進(jìn)行相應(yīng)的編程。具體方法如下：2.1 創(chuàng)建庫表創(chuàng)建一個(gè)新數(shù)據(jù)庫和一

6、個(gè)新表單，在表單中創(chuàng)建一個(gè) rtf 域，取名為“body“。lotus 的 rtf 域可以嵌入并顯示 ole 對(duì)象，此“body“域用來創(chuàng)建一個(gè) word 對(duì)象。接著創(chuàng)建三個(gè)操作按鈕分別取名為“擬正文“、“隱蔽痕跡“和“查看痕跡“及“保存退出“。首先在表單中創(chuàng)建一個(gè) rtf 域 body，以嵌入 word ，再做一按鈕，該按鈕實(shí)現(xiàn)對(duì)修改的留痕。其源程序?yàn)椋篸im db as new notesdatabase(servername,“jswfw“) dim handle as variantdim doc as notesdocument set doc=source.document dim

7、 rtitem as variantdim object as notesembeddedobjectset rtitem = doc.getfirstitem( “body“ ) dim session as new notessessiondim user as stringuser = monusernameif ( rtitem.type = richtext ) thenset object = rtitem.getembeddedobject( “microsoft word 文檔“ ) set handle=object.activate(false) handle.showgr

8、ammaticalerrors=false handle.showspellingerrors=falsehandle.trackrevisions = true handle.printrevisions = true handle.showrevisions = true handle.parent.username = user handle.parent.userinitials = user handle.parent.useraddress = “ handle.saveend if起草人在起草了文章后，單擊該按鈕，以后對(duì)該文章的全部修改都將保留痕跡。2.2 保留痕跡的相關(guān)功能(1

9、) 查看痕跡?！安榭春圹E“操作按鈕功能及實(shí)現(xiàn)代碼如下： sub click(source as button)dim session as new notessession dim ws as new notesuiworkspace dim uidoc as notesuidocument dim doc as notesdocumentset uidoc=ws.currentdocument set doc=uidoc.documentif (doc.hasembedded) thenset rtitem=doc.getfirstitem(“body“) set embed=rtitem.

10、embeddedobjects(0)set oleobject=uidoc.getobject()with oleobject.trackrevisions = true.printrevisions = true.showrevisions = true.application.username=session.commonusername end withend if end sub（2） 隱蔽痕跡。操作按鈕功能及實(shí)現(xiàn)代碼如下：sub click(source as button)dim session as new notessession dim ws as new

11、 notesuiworkspace dim uidoc as notesuidocument dim doc as notesdocumentset uidoc=ws.currentdocument set doc=uidoc.documentif (doc.hasembedded) thenset rtitem=doc.getfirstitem(“body“) set embed=rtitem.embeddedobjects(0)set oleobject=uidoc.getobject() with oleobject.trackrevisions =true.prin

12、trevisions = false.showrevisions = false.application.username=session.commonusername end withend ifend sub隱蔽修改痕跡，即不顯示，但仍可保留修改痕跡,一般在打印正式文件時(shí)使用。（3） 保存退出。sub 保存退出() activedocument.save activedocument.close end sub（4） 鍵之處將 notes 中的用戶名轉(zhuǎn)入 word 中，以便生成標(biāo)注。該程序可在數(shù)據(jù)庫的postopen 大事中觸發(fā)， 主要程序如下。dim wordapp as variantset wordapp = createobject(“word.document.9“)if wordapp.application.username<> session.commonusername then wordapp.application.username =session.commonusername/設(shè)置 word 用戶名end ifend function3 痕跡保留實(shí)現(xiàn)效果通過對(duì) word 的上述編程，實(shí)現(xiàn)了oa 與 word 的無縫集成，保證了全部對(duì)于修改痕跡的惡意操作都無法通過系統(tǒng)的認(rèn)可，確保批改人員的修改意圖不被扭曲或是誤會(huì)，保證了信息溝通的平安性。