VC生成word表格.docVIP

VC?6.0动态生成Word表格实例 (2012-04-13 18:00:46) 转载▼ 标签： （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.定义对象 _Application ? ? oWordApp;? Documents ? ? ? ?oDocs; _Document ? ? ? ?oDoc; Range ? ? ? ? ? ?range; Paragraph ? ? ? ?paragraph; Paragraphs ? ? ? paragraphs; Cell ? ? ? ? ? ? cell; Cells ? ? ? ? ? ?cells; Table ? ? ? ? ? ?table; Tables ? ? ? ? ? tables; Border ? ? ? ? ? border; Borders ? ? ? ? ?borders; _Font ? ? ? ? ? ?font; PageSetup ? ? ? ?pagesetup; //2.创建和连接word对象，初始化连接,判断当前系统是否有word进程，然后然后创建或连接对象 LPDISPATCH ? pDisp;? LPUNKNOWN ? ?pUnk;? CLSID ? ? ? ?clsid;? 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.GetRang