请各位高手帮忙看看:
老板的要求是有一个txt文件,里面是要填写到word特定表格的内容,现在要实现将这些信息填写到已有word文档中,该word文档中有一个表格,填写到特定位置即可。
以前没有做过office自动化编程,没有经验,希望能够提供简单的例子程序。
高分相送!
老板的要求是有一个txt文件,里面是要填写到word特定表格的内容,现在要实现将这些信息填写到已有word文档中,该word文档中有一个表格,填写到特定位置即可。
以前没有做过office自动化编程,没有经验,希望能够提供简单的例子程序。
高分相送!
解决方案 »
- 如何能够让windows 的socket在两块网卡上大并发接收数据。
- 那位大侠,能帮个忙?毕设出现点问题...OpenGL,MFC
- mfc中如何读写串口
- 头文件中如何引用另一个同文件中的类
- VC处理dbf表的问题!!!!!!!!!!!!
- >>>>>>请教:当鼠标移到Static Text控件上时,让Static Text改变颜色,单击后弹出一个详细描述它的窗口?
- 无法解决的问题,AfxBeginThread产生异常?
- VC新手:check菜单的问题
- CListCtrl出现的字符串回绕的问题
- VS2010下的BHO项目编译guiddef.h 卡住
- 如何创建无标题栏的窗体?
- 怎样获取对象的背景色?
添加automation类 然后写个函数内容如下
BeginWaitCursor(); COleVariant vTrue((short)TRUE), vFalse((short)FALSE),
vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR); _Application m_App;//定义Word提供的应用程序对象;
Documents m_Docs;//定义Word提供的文档对象;
Selection m_Sel;//定义Word提供的选择对象;
m_Docs.ReleaseDispatch();
m_Sel.ReleaseDispatch();
m_App.m_bAutoRelease=true;
if(!m_App.CreateDispatch("Word.Application"))
{
AfxMessageBox("创建Word2000服务失败!");
exit(1);
} //下面是定义VARIANT变量;
COleVariant varFilePath("D:\\word表格.doc");
COleVariant varstrNull("");
COleVariant varZero((short)0);
COleVariant varTrue(short(1),VT_BOOL);
COleVariant varFalse(short(0),VT_BOOL);
m_Docs.AttachDispatch(m_App.GetDocuments());//将Documents类对象m_Docs和Idispatch接口关联起来;
m_Docs.Open(varFilePath,varFalse,varFalse,varFalse,
varstrNull,varstrNull,varFalse,varstrNull,
varstrNull,varTrue,varTrue,varTrue);
//打开Word文档;
m_Sel.AttachDispatch(m_App.GetSelection());//将Selection类对象m_Sel和Idispatch接口关联起来; m_Sel.MoveDown(COleVariant((short)4),COleVariant((short)1),COleVariant((short)0));
m_Sel.MoveDown(COleVariant((short)5),COleVariant((short)1),COleVariant((short)0));
m_Sel.TypeText("123456789");
m_Sel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)0));
m_Sel.TypeText("李晓明");
m_Sel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)0));
m_Sel.TypeText("25");
m_Sel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)0));
m_Sel.TypeText("技术员");
m_Sel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)0));
m_Sel.TypeText("本科");
m_Sel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)0));
m_Sel.TypeText("上海市虹口区民主路315号");
//save word file
_Document oActiveDoc;
oActiveDoc = m_App.GetActiveDocument();
oActiveDoc.SaveAs(COleVariant("c:\\填写后表格.doc"),
COleVariant((short)0),
vFalse, COleVariant(""), vTrue, COleVariant(""),
vFalse, vFalse, vFalse, vFalse, vFalse);
m_Docs.ReleaseDispatch();//断开关联;
m_Sel.ReleaseDispatch();
//退出WORD
m_App.Quit(vOpt, vOpt, vOpt);
m_App.Quit(vOpt, vOpt, vOpt);
m_App.ReleaseDispatch(); EndWaitCursor(); MessageBox("word表格填写完毕!","提示",MB_ICONEXCLAMATION);