VC编程操作word2010生成表格

作者：朱金灿

来源：http://blog.csdn.net/clever101

一. 右键单击工程节点，然后选择添加类，如下图：

二. 添加TypeLib中的MFC类，如下图：

三. 选择文件，打开MSWORD.OLB， word2010的在Office14的文件夹下，如下图：

四. 生成所有的接口类代码，如下图：

五. 生成表格的代码如下：

void CMFCDlgDlg::OnBnClickedButton1()

{

	CApplication     oWordApp;

	CDocuments        oDocs;

	CDocument0       oDoc;

	CRange            range;

	CParagraph        paragraph;

	CParagraphs       paragraphs;

	CCell             cell;

	CCells            cells;

	CTable0            table;

	CTables0           tables;

	CBorder           border;

	CBorders          borders;

	CFont0           font;

	CPageSetup        pagesetup;

	//2.创建和连接word对象，初始化连接,判断当前系统是否有word进程，然后然后创建或连接对象

	LPDISPATCH   pDisp; 

	LPUNKNOWN    pUnk; 

	CLSID        clsid; 

	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表格

	oWordApp.m_bAutoRelease=true;

	BeginWaitCursor();

	oDocs=oWordApp.get_Documents();

	COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR);

	oDoc=oDocs.Add(vOpt,vOpt,vOpt,vOpt);//加新文档

	pagesetup=oDoc.get_PageSetup();

	pagesetup.put_Orientation(1);  //横向

	paragraphs=oDoc.get_Paragraphs(); 

	paragraph=paragraphs.get_Last();//以当前段落最后一行为表起始位置

	range=paragraph.get_Range();

	//添加制作新表格

	tables=oDoc.get_Tables();

	int nBhCount=3;

	table=tables.Add(range,5+nBhCount,6,vOpt,vOpt);

	borders=table.get_Borders();

	borders.put_Enable(1); //显示表框

	range=table.get_Range();

	cells=range.get_Cells();

	cells.put_VerticalAlignment(1);//文字居中

#define DOC_TABLE1_WIDTH 60

	cells.SetWidth(DOC_TABLE1_WIDTH,1); 

	cell=table.Cell(1,1);//合并第一行的三列

	cell.Merge(table.Cell(1,6));

	range=cell.get_Range();

	range.put_Bold(1);

	range.put_Text("                                         病害统计信息"); //居中

	cell=table.Cell(2,1);

	cell.Merge(table.Cell(2,2));

	range=cell.get_Range();

	range.put_Bold(1);

	range.put_Text("组成材料");

	cell=table.Cell(2,2);

	cell.Merge(table.Cell(2,4));

	range=cell.get_Range();

	range.put_Bold(1);

	range.put_Text("病害种类");

	cell=table.Cell(2,3);

	range=cell.get_Range();

	range.put_Bold(1);

	range.put_Text("病害总数");

	for(int iBh=0;iBh<nBhCount;iBh++)

	{

		cell=table.Cell(2+iBh+1,1);

		cell.Merge(table.Cell(2+iBh+1,2));

		range=cell.get_Range();

		range.put_Bold(0);

		range.put_Text("hello1");

		cell=table.Cell(2+iBh+1,2);

		cell.Merge(table.Cell(2+iBh+1,4));

		range=cell.get_Range();

		range.put_Bold(0);

		range.put_Text("hello2");

		cell=table.Cell(2+iBh+1,3);

		range=cell.get_Range();

		range.put_Bold(0);

		range.put_Text("hello3");

	}

	cell=table.Cell(3+nBhCount,1);//合并列

	cell.Merge(table.Cell(3+nBhCount,6));

	range=cell.get_Range();

	range.put_Bold(1);

	range.put_Text("                                       等级统计信息");

	for(int iCol=1;iCol<=6;iCol++)

	{

		cell=table.Cell(3+nBhCount+1,iCol);

		range=cell.get_Range();

		range.put_Bold(1);

		range.put_Text("hello4");

		cell=table.Cell(3+nBhCount+2,iCol);

		range=cell.get_Range();

		range.put_Bold(0);

		range.put_Text("hello5");

	}

	//保存，清理

	CString  strSave= "E:\\doc\\test.doc";

	COleVariant vTrue((short)TRUE), vFalse((short)FALSE);

	CDocument0 oActiveDoc;

	oActiveDoc = oWordApp.get_ActiveDocument(); 

	oActiveDoc.SaveAs(COleVariant(strSave),COleVariant((short)0), vFalse,

		COleVariant(""), vTrue,COleVariant(""),vFalse, 

		vFalse, vFalse, vFalse, vFalse,

		vOpt,vOpt,vOpt,vOpt,vOpt); 

	oWordApp.put_Visible(true);

	oWordApp.ReleaseDispatch(); //退出WORD 

	EndWaitCursor();

}

效果图如下：

参考文献：

1. VC 6.0动态生成Word表格实例

巴特西

VC编程操作word2010生成表格

最新文章

热门文章