在一个MFC工程中调用Word ActiveX自动化

http://www.5xsoft.com/Article.aspx?id=241

近一周在实际复旦OA的一个辅助公文流转的ActiveX控件，发现了一些新的东西。

　　1.在一个MFC工程中调用Word ActiveX自动化。

　　用ClassWizard中通过添加类From TypeLib来自动添加调用的接口类，TypeLib是office安装目录里的以OLB为扩展名的文件，Office2k的为MSWORD9.OLB，Office2k3的为MSWORD.OLB，选中你要使用的类就可以生成了，当然也可以把所有的类都选中，如果你不闲看着一堆无用的东西烦的话。

　　一般的过程：

打开WORD

CoInitialize(NULL); //初始化OLE环境

if(!wordapp.CreateDispatch(_T("Word.Application"))) //创建WORD分派，启动WORD进程

{

AfxMessageBox(_T("请先安装Word后再处理OA公文"));

return 1;

}

CComVariant CovOptional=CComVariant("");

try{

wordapp.SetVisible(false); //将WORD窗口设为用户不可见

docs.AttachDispatch(wordapp.GetDocuments()); //获取docs接口

CComVariant FileName=CComVariant((LPCSTR)m_localFilePath);

CComVariant CovFalse=CComVariant(false);

CComVariant CovTrue=CComVariant(true);

doc=docs.Open(&FileName,&CovFalse,&CovFalse,&CovFalse,&CovOptional,&CovOptional,&CovFalse,&CovOptional, &CovOptional,&CovTrue,&CovTrue,&CovTrue); //打开文档并获取新文档的接口

doc.Activate(); //激活文档

}catch(CException *ex)

{

ex->ReportError();

ex->Delete();

return 7;

}

其中的定义

Application wordapp=NULL;

Documents docs=NULL;

_Document doc=NULL;

设置修订

Options ops=NULL;

CComVariant CovOptional;

try{

ops=wordapp.GetOptions();//获取Options接口

if (m_revisionOption!=2)

{

ops.SetInsertedTextColor(-1); //设置插入修订颜色按作者不同

ops.SetInsertedTextMark(3);

ops.SetDeletedTextColor(-1); //设置删除

ops.SetDeletedTextMark(1);

}

wordapp.SetUserName((LPCTSTR)m_username); //设置操作者用户名

if(m_revisionOption==0)

{

doc.SetPrintRevisions(true); //设置打印修订

doc.SetShowRevisions(true); //设置显示修订

}else

{

doc.SetPrintRevisions(false);

doc.SetShowRevisions(false);

}

if(m_revisionOption==2)

{

doc.SetTrackRevisions(false); //设置记录修订

}else

{

doc.SetTrackRevisions(true);

}

}catch(CException *ex)

{

ex->ReportError();

ex->Delete();

}

if(ops!=NULL)

ops.ReleaseDispatch();

return 0;

操作书签

Bookmarks bms=NULL;

Bookmark bm=NULL;

Range range=NULL;

try{

doc.SetTrackRevisions(false);

bms=doc.GetBookmarks(); //获取Bookmarks接口

bm=bms.Item(&CComVariant(lpszName)); //按书签名获取Bookmark接口

range=bm.GetRange(); //获取书签的操作范围接口

range.SetText(lpszText); //设置书签的文本

}catch(CException *ex)

{

ex->ReportError();

ex->Delete();

}

if(range!=NULL)

range.ReleaseDispatch();

if(bm!=NULL)

bm.ReleaseDispatch();

if(bms!=NULL)

bms.ReleaseDispatch();

return 0;

关闭Word并保存

CComVariant SaveChanges=CComVariant(true);

CComVariant CovOptional;

wordapp.Quit(&SaveChanges,&CovOptional,&CovOptional); //退出并保存

if(doc!=NULL)

doc.ReleaseDispatch();

if(docs!=NULL)

docs.ReleaseDispatch();

wordapp.ReleaseDispatch();

wordapp=NULL;

CoUninitialize(); //关闭OLE环境

以上是我用到的一些东西，其实Word ActiveX非常功能强大，WORD就是它，它就是WORD，它里面有无数的东西，这些东西你可以从WORD的宏编辑器里，有一个对象浏览器，你可以看到，或者是用ActiveX TypeLib的查看器来查看它的Typelib。至于那些方面的参数里的VARIANT型的参数，你可通过Office的帮助或者录制宏然后再用宏编辑器查看到。