华南俳烁实业有限公司

　　在應用系統(tǒng)的設計中,有時要求在程序中自動調用Microsoft 應用程序,如Word或Excel 等來創(chuàng)建文檔或制作表格.在開發(fā)一個辦公系統(tǒng)時,就采用了這種方法.

　　設計環(huán)境:

　�、費icroSoft Visual FoxPro 5.0中文版;

　�、赪indows 98中文操作系統(tǒng);

　　③Microsoft (R)Word 97.

　　首先創(chuàng)建一個表單Form1,在Form1上新建一個命令按扭Command1,并設置Command1的Caption 為"自動創(chuàng)建Word文檔".��Command1的Click 過程包括下列命令

　　語句:

　　c MessageTitle =’啟動窗’

　　c MessageText =’啟動Microsoft (R)

　　Word 97’��nDialogType =0+64+0

　　nAnswer =MESSAGEBOX

　　(c MessageText ,nDialogType ,c MessageTitle)

　　filename =’99年工作計劃’

　　public objwdoc

　　nllocaleId =sys(3004)

　　=sys(3006,1033)

　　objWDdoc =crea("word .basic")

　　objwddoc .appshow

　　objWDdoc .appmaxi mize

　　objwddoc .filenewdefault

　　objwddoc .filesaveas("&filename")

　　=sys(3006,val(nlLocaleId))

　　c MessageTitle =’結束窗’

　　c MessageText =’文檔創(chuàng)建完畢’+chr(13)+’退出Mi-

　　crosoft (R)Word 97’

　　nDialogType =0+64+0

　　nAnswer =MESSAGEBOX(c MessageText ,nDialogType ,

　　c MessageTitle)

　　這樣,在命令窗口中運行上述Form 時,單擊"自動創(chuàng)建Word 文檔"按扭,則自動調用Word 97創(chuàng)建文檔,且文檔的名字為"99年工作計劃".