描述:
如何用vc自动生成word文档?word 文档的内容可根据自己的要求自动由程序生成。
解决方案1:
VC操作WORD自动化对象
http://www.dpspace.com
_Document Doc;
_Application App;
Documents Docs;
Selection Select;
App.CreateDispatch("Word.Application");
App.SetVisible(TRUE);
Docs.AttachDispatch(App.GetDocuments());
VARIANT vt;
vt.vt=VT_ERROR;
vt.scode=DISP_E_PARAMNOTFOUND;
Docs.Add(&vt,&vt,&vt,&vt);
long lItem;
pItem->EnableAutomation();
Doc.AttachDispatch(pItem->GetIDispatch());
App.AttachDispatch(Doc.GetApplication());
Docs.AttachDispatch(App.GetDocuments());
Select.AttachDispatch(App.GetSelection());
Select.SetText("This is a good place to say \"Hello World\"");
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
lItem=Docs.GetCount();
VARIANT vFileName;
vFileName.vt=VT_BSTR;
vFileName.bstrVal=A2BSTR("F:\\Test.doc");
VARIANT vt;
vt.vt=VT_ERROR;
vt.scode=DISP_E_PARAMNOTFOUND;
Doc.SaveAs(&vFileName,&vt,&vt,&vt,&vt,&vt,&vt,&vt,&vt,&vt,&vt,&vt,&vt,&vt,&vt,&vt);