VC60动态生成Word表格实例.doc

VC?6.0动态生成Word表格实例 ?（1）首先，向你的项目中添加word 2003类型库：方法是在MFC ClassWizard中点击按钮Add Class，选择From a type library,在弹出的浏览对话框中，浏览找到office 2003安装路径下的msword.olb文件，例如：C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB,然后选择以下类，这些类都是后面实现生成word表格要用到的： _Application,Documents,_Document,Range, Paragraph,Paragraphs,Cell,Cells,Table,Tables,Border,Borders ,_Font ,PageSetup （2）在使用到这些类型的类的头文件或者cpp文件的开头，包含以下头文件：#include msword.h （3） 创建如下代码 //1.定义对象 _ApplicationoWordApp;? DocumentsoDocs; _DocumentoDoc; Rangerange; Paragraphparagraph; Paragraphsparagraphs; Cellcell; Cellscells; Tabletable; Tablestables; Borderborder; Bordersborders; _Fontfont; PageSetuppagesetup; //2.创建和连接word对象，初始化连接,判断当前系统是否有word进程，然后然后创建或连接对象 LPDISPATCH ??pDisp;? LPUNKNOWN ???pUnk;? CLSIDclsid;? CoInitialize(NULL);? CLSIDFromProgID(LWord.Application,clsid);? if(GetActiveObject(clsid,NULL,pUnk)==S_OK)? {? pUnk- QueryInterface(IID_IDispatch,(void **)pDisp);? oWordApp.AttachDispatch(pDisp);? } ? else? {? if(!oWordApp.CreateDispatch(Word.Application)) { AfxMessageBox(创建Word服务失败!);? } } //初始化文档，生成WORD表格 oDocs.ReleaseDispatch(); oWordApp.m_bAutoRelease=true; BeginWaitCursor(); oDocs=oWordApp.GetDocuments(); COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR); oDoc=oDocs.Add(vOpt,vOpt,vOpt,vOpt);//加新文档 pagesetup=oDoc.GetPageSetup(); pagesetup.SetOrientation(1);//横向 paragraphs=oDoc.GetParagraphs(); //生成第一个表 paragraph=paragraphs.GetLast();//以当前段落最后一行为表起始位置 range=paragraph.GetRange(); //添加制作新表格 tables=oDoc.GetTables(); int nBhCount=3; table=tables.Add(range,5+nBhCount,6,vOpt,vOpt); borders=table.GetBorders(); borders.SetEnable(1);//显示表框 range=table.GetRange(); cells=range.GetCells(); cells.SetVerticalAlignment(1);//文字居中 #define DOC_TABLE1_WIDTH 60 cells.SetWidth(DOC_TABLE1_WIDTH);? cell=table.Cell(1,1);//合并第一行的三列 cell.Merge(table.Cell(1,6)); range=cell.GetRange(); range.SetBold(1); range.SetText(病害统计信息);//居中 cell=table.Cell(2,1); cell.Merge(table.Cell(2,2)); range=cell.GetRange(); range.SetBold(1); range.SetText(组成材料); cell=