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.定义对象
_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(L"Word.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=table.Cell(2,2);
cell.Merge(table.Cell(2,4));
range=cell.GetRange();
range.SetBold(1);
range.SetText("病害种类");
cell=table.Cell(2,3);
range=cell.GetRange();
range.SetBold(1);
range.SetText("病害总数");
for(int iBh=0;iBh<nBhCount;iBh++)
{
cell=table.Cell(2+iBh+1,1);
cell.Merge(table.Cell(2+iBh+1,2));
range=cell.GetRange();
range.SetBold(0);
range.SetText("hello1");
cell=table.Cell(2+iBh+1,2);
cell.Merge(table.Cell(2+iBh+1,4));
range=cell.GetRange();
range.SetBold(0);
range.SetText("hello2");
cell=table.Cell(2+iBh+1,3);
range=cell.GetRange();
range.SetBold(0);
range.SetText("hello3");
}
cell=table.Cell(3+nBhCount,1);//合并7列
cell.Merge(table.Cell(3+nBhCount,6));
range=cell.GetRange();
range.SetBold(1);
range.SetText(" 等级统计信息");
for(int iCol=1;iCol<=6;iCol++)
{
cell=table.Cell(3+nBhCount+1,iCol);
range=cell.GetRange();
range.SetBold(1);
range.SetText("hello4");
cell=table.Cell(3+nBhCount+2,iCol);
range=cell.GetRange();
range.SetBold(0);
range.SetText("hello5");
}
//保存，清理
CString strSave="D:\\test.doc";
COleVariant vTrue((short)TRUE), vFalse((short)FALSE);
_Document oActiveDoc;
oActiveDoc = oWordApp.GetActiveDocument();
oActiveDoc.SaveAs(COleVariant(strSave),COleVariant((short)0), vFalse,
COleVariant(""), vTrue,COleVariant(""),vFalse,
vFalse, vFalse, vFalse, vFalse,
vOpt,vOpt,vOpt,vOpt,vOpt);
oWordApp.SetVisible(true);
oDocs.ReleaseDispatch(); //断开关联；
oWordApp.ReleaseDispatch(); //退出WORD
EndWaitCursor();
（5）生成表格如下：
|
病害统计信息 |
|||||
|
组成材料 |
病害种类 |
病害总数 |
|||
|
hello1 |
hello2 |
hello3 |
|||
|
hello1 |
hello2 |
hello3 |
|||
|
hello1 |
hello2 |
hello3 |
|||
|
等级统计信息 |
|||||
|
hello4 |
hello4 |
hello4 |
hello4 |
hello4 |
hello4 |
|
hello5 |
hello5 |
hello5 |
hello5 |
hello5 |
hello5 |
