VC中通过自动化客户端操作Word2000(2)

　　为了在Visual C++中编程操作Word2000，需要使用微软提供的类型库，这个类型库可以在Msword9.olb文件中找到，Msword9.olb这个文件通常情况下位于Microsoft Office的安装目录下面。利用Visual C++中的Class Wizard可以方便的向应用程序添加新的类型库，在应用程序的项目代码中启动Class Wizard ，选择Add class…. From a type library …C:OFFICEmsword 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);
} 

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

　　二、编程步骤

　　1、 启动Visual C++6.0，生成一个单文档的应用程序，视图的基类选择CEditView类，将该程序命名为"OperateWord"；

　　2、 启动Word2000，根据所要执行的Word操作录制宏；

　　3、 使用Class Wizard为应用程序的项目代码中添加操作Word2000的类型库Msword9.olb；

　　4、 添加代码，编译运行程序。

　三、程序代码

////////////////////////////////////////////////////////////////////////////
void COperateWordView::OnShowDoc()
{
　// 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();
}

　　四、小结

　　本实例主要讲述了基于自动化的技术如何操作Word2000，为读者学习自动化客户端程序的开发起到抛砖引玉的作用，读者可以在此基础上，实现对Word2000、Excel2000、PowerPoint2000等服务器端进行更复杂的操作。最后补充一句，如果读者朋友想操作OFFICE98版本的应用程序，只需要引入微软提供的8.0版本的类型库就可以了。