在給企業開發的項目中,客戶經常要求將數據匯總顯示並打印。站在程序員的立場上,簡單數據的匯總打印可以采用VB自帶報表,對復雜的數據用水晶報表或第三方打印控件。在企業中,匯總數據另一個目的是為了便於交流和共享資源,報表的格式通常固定,內容可以自己調整,他們對
Excel 和 Word 情有獨鐘。
剛完成的項目中,客戶要求將匯總的數據以三種方式進行顯示和打印:AutoCad、Excel 和 Word 文檔中。前兩種方式網上資源很多,對
Word 文檔我找到例子不是很多。由於需要和 AutoCad 開發程序結合,不能將 Word 文檔以 OLE 的方式 嵌入到程序中,文檔只能在內存中形成,這將占用大量的CPU資源,另開一個線程進行處理,線程間以發送消息的方式進行通信。
首先在VC引入Word, 對格式相同的地方一定使用模版的方式進行處理,這可以大大的提高運行速度,Word中的模版為*.dot。加載模版的代碼為:
sDocs=sApp.GetDocuments();
sDocs.AttachDispatch(sApp.GetDocuments(),true);
COleVariant vFalse((long)0),vTrue((long)1);
sDoc.AttachDispatch(sDocs.Add(COleVariant(_variant_t(strFileName)),
vFalse,vFalse, vTrue));
需要注意的是,如果Word中使用到表格,VBA錄制的全是Selection對象的處理方法,在VC中使用Selection對象的MoveUp和MoveDown函數時會出現不確定現象(如果你知道為什麼的話請告訴我)。如果你需要繪制表格,不要用程序來動態形成,繪制表格的代碼是很繁瑣的,而且在頁眉中繪制單元格是很難控制的。可以先在模版中繪出你要的表格格式,然後用程序復制單元格或者直接使用模版中的單元格。由於我做的項目表格的行數不確定,我采用的是復制單元格的方式(速度比較慢,誰有更好的方法?)。
剩下的處理流程,就是你想做什麼操作,先在Word中錄制一段宏,然後查看其VBA代碼,並將其轉化到Vc程序中。這就看你Word使用的熟練程度了,例如如何把不同頁的頁眉頁腳設置不同,如何得到當前頁的頁數以及總的文檔的頁數,具體可以參考程序。
VC中也可以像Excel中調用模版中存在的宏,代碼如下:
VARIANT vtMissing ;vtMissing.vt =VT_ERROR;
vtMissing.scode =DISP_E_PARAMNOTFOUND;
sApp.Run("AddCell",&vtMissing,&vtMissing,&vtMissing,
&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,
&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,
&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,
&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing);
本文的目的是想起到拋磚引玉的作用,看看大家在VC中使用Word有什麼更好的方法。(vc知識庫)