vc+word.docVIP

我的代码 if (!AfxOleInit()) { AfxMessageBox(失败); return; } // TODO: Add your command handler code here COleVariant vTrue((short)TRUE), vFalse((short)FALSE), vTmp, vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR); //创建Word实例 _Application oWordApp; if (!oWordApp.CreateDispatch(Word.Application, NULL)) { AfxMessageBox(创建失败！, MB_OK | MB_SETFOREGROUND); return; } Range Rng; Table Tbl; Tables Tbls; //创建一个新的word文档 Documents oDocs; _Document oDoc; oDocs = oWordApp.GetDocuments(); oDoc = oDocs.Add(vOpt, vOpt, vOpt, vOpt); //如果是word 98，则应该带两个参数，如oDocs.Add(vOpt, vOpt) COleVariant vUnit((long)5), vCount((long)1), vExtend((long)1); //把文本添加到word文档 Selection oSel; oSel = oWordApp.GetSelection(); _Font myFont; oSel.MoveUp(vUnit, vCount, vOpt); oSel.MoveDown(vUnit, vCount, vExtend); myFont = oSel.GetFont(); ASSERT(LPDISPATCH(myFont)); // 改为大字体、浅蓝色 myFont.SetColorIndex((long)3); myFont.SetSize(24); oSel.SetFont(LPDISPATCH(myFont)); oSel.TypeText(第一行); oSel.TypeParagraph(); oSel.TypeText(9+6); oSel.TypeParagraph(); oSel.TypeText(three); //保存word文档 _Document oActiveDoc; oActiveDoc = oWordApp.GetActiveDocument(); oActiveDoc.SaveAs(COleVariant(D:\\doc1.doc), COleVariant((short)0), vFalse, COleVariant(), vTrue, COleVariant(), vFalse, vFalse, vFalse, vFalse, vFalse,vFalse,vFalse,vFalse,vFalse,vFalse); //退出word应用程序 oWordApp.Quit(vOpt, vOpt, vOpt); 在实际应用中，编程者往往喜欢程序能自动生成word说明文档，说明程序运行的状况或运行的结果；或者程序能提取数据库的内容生成word表格,使用户能方便的查看和修改，打印。但是VC++中调用word的确不容易，特别是对word中各种函数的使用，本文以作者的工作经验详细介绍一下如何调用word和进行word表格的填写，有同样需求的编友也可查看一下MSDN中的Automation Microsoft Office 97 and Microsoft office 2000。下面介绍以Microsoft Office 2000 Word为例。类型库 　　一个类型库是一个提供COM对象功能信息的文件或文件的一部分，而且类型库包含了有关类的信息。注意，类型库并不存储实际的对象，而只是存储有关这些对象的信息。类型库详细说明了一个自动化客户