代码如下:
CApplication oWordApp;
CDocuments odocs;
CDocument0 odoc;
CSelection sel;
COleVariant vTrue((short)TRUE), vFalse((short)FALSE);
COleVariant vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
CComVariant Template(_T("")),NewTemplate(false),DocumentType(0),Visible;
if(!(oWordApp.CreateDispatch("Word.Application")))
{
AfxMessageBox("Error starting Word.", MB_SETFOREGROUND);
return;
}
odocs = oWordApp.get_Documents();
odocs.Add(&Template,&NewTemplate,&DocumentType,&Visible);
sel = oWordApp.get_Selection();
sel.TypeText("hello,这个第一例子程序");
odoc = oWordApp.get_ActiveDocument();
odoc.SaveAs(COleVariant("d:\\testword.doc"),COleVariant((short)0), vFalse, COleVariant(""), vTrue, COleVariant(""), vFalse, vFalse, vFalse, vFalse, vFalse,vFalse, vFalse,vFalse, vFalse,vFalse);//保存
sel.ReleaseDispatch();
odocs.ReleaseDispatch();
oWordApp.Quit(vOpt, vOpt, vOpt);//退出word
oWordApp.ReleaseDispatch();