vc操作word的简单例子

关注

原创最新推荐文章于 2025-05-10 15:44:30 发布 1.2k 阅读 AI 写同款· GEO 优化 ›

AI权益加码！Claude Code、Cursor等20+工具免费用！购周边限时加赠Coding Plan Lite，畅享主流AI工具！学习进阶更高效！阅读详情

void CMyDialog::OnBnClickedOk()
{

if(IDOK!=AfxMessageBox(_T("看好了，就要新建一个文档了")))
return;

CApplication app;
app.CreateDispatch(_T("Word.Application"));
app.put_Visible(TRUE);

CDocuments docs=app.get_Documents();

CComVariant Template(_T(""));//为了简单，没有使用WORD的文档模板
CComVariant NewTemplate(false),DocumentType(0),Visible;
docs.Add(&Template,&NewTemplate,&DocumentType,&Visible);

CSelection sel=app.get_Selection();

sel.TypeText(_T("我是被写入的句子!"));

CDocument0 doc=app.get_ActiveDocument();//得到ActiveDocument
CComVariant FileName(_T("c:\\Hello.doc"));//文件名
CComVariant FileFormat(0);//重点，看下面的说明
CComVariant LockComments(false),Password(_T(""));
CComVariant AddToRecentFiles(true),WritePassword(_T(""));
CComVariant ReadOnlyRecommended(true),EmbedTrueTypeFonts(false);
CComVariant SaveNativePictureFormat(false),SaveFormsData(false);
CComVariant SaveAsAOCELetter(false);

CComVariant Encoding(msoEncodingUSASCII);
CComVariant InsertLineBreaks(false);
CComVariant AllowSubstitutions(false);
CComVariant LineEnding(wdCRLF );
CComVariant AddBiDiMarks(false );

/*doc.SaveAs( &FileName, &FileFormat, &LockComments, &Password, \
&AddToRecentFiles, &WritePassword, &ReadOnlyRecommended, \
&EmbedTrueTypeFonts, &SaveNativePictureFormat,&SaveFormsData,\
&SaveAsAOCELetter, &Encoding, &InsertLineBreaks, &AllowSubstitutions, \
&LineEnding,&AddBiDiMarks);

*/

COleVariant opt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

doc.SaveAs( &FileName, &FileFormat,opt , opt,\
opt, opt,opt , \
opt, opt,opt,\
opt, opt,opt ,opt, \
opt,opt);

sel.ReleaseDispatch();
doc.ReleaseDispatch();
docs.ReleaseDispatch();

CComVariant SaveChanges(false),OriginalFormat,RouteDocument;

app.Quit(&SaveChanges,&OriginalFormat,&RouteDocument);

}

收录于