基于Visual C 的自动化客户端的实现

　　

　　查看宏代码可以点击Word2000中工具菜单下的Visual Basic 编辑器。从上面的代码中可以看出对Word2000的这几个操作用到了Documents、Selection这两个自动化服务器端显示出来的对象和它们的方法。
为了操作Word2000，需要使用它的类型库，这可以在Msword9.olb文件中找到，这个文件通常情况下位于Microsoft Office的安装目录下面。利用Visual C++中的ClassWizard可以方便的向应用程序添加新的类型库，在程序中启动ClassWizard ，选择Add class…. \From a type library …\C:\OFFICE\msword 9.olb，在弹出的对话框中选择_Application，_Documents，Selection，这样就可以为客户端程序程序中使用到的每个Word2000对象建立相应的C++类。这些类的定义和实现分别在msword9.h和msword9.cpp文件中给出。

　　为了使我们生成的项目支持自动化，为此我们要在项目中的StdAfx.h的文件末尾添加上下面一行：#include "afxdisp.h"；在应用程序的InitInstance函数的开始添加下面的调用：

if (CoInitialize(NULL)!=0)
{
AfxMessageBox("初始化COM支持库失败!");
exit(1);
}

　　首先通过COleDispatchDriver的成员函数CreateDispatch()创建一个Word2000的Applicaion对象，然后通过COleDispatchDriver的成员函数AttachDispatch（）将Documents和Selection对象与Application对象提供的IDispatch接口关联起来，在程序对上述对象使用完毕后，要使用COleDispatchDriver的成员函数ReleaseDispatch（）来释放对象和接口之间的连接。

　　有了上面的准备工作，下面给出如何实现上述操作目标的具体代码，该程序在Windows Me环境下，Visual C++6.0开发平台上编译通过，运行正常。

void CKkView::OnMenuAutoDisplay()
{
// TODO: Add your command handler code here
static char BASED_CODE szFilter[]="Word Files(*doc)|*.DOC||";
CFileDialog fd(true,NULL,NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,szFilter,NULL);
CString strFilePath;//用来保存打开的文件名；
if(fd.DoModal()==IDOK)
strFilePath=fd.GetPathName();//获取要打开的Word文档的名字；
_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(strFilePath);
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.WholeStory ();//选择文档中的全部内容；
m_Sel.Copy();//将数据拷贝到剪贴板
this->GetEditCtrl( ).Paste ();//将数据粘贴到程序的"视"中；
m_Docs.ReleaseDispatch();//断开关联；
m_Sel.ReleaseDispatch();
}

　　本文主要讲述了基于自动化技术来操作Word，实现自动化的客户端的实现思想，为读者起到抛砖引玉的作用，读者可以在此基础上，实现对Word、Excel、PowerPoint等服务器端进行更复杂的操作。

查看本文来源