基于的自动化客户端的实现牛

三、操作Word2000的例子

但通过其他渠道向日本表达了美国的关注和担忧 本文的例子演示了如何操作Word2000实现自动化，这个例子主要是为了辅助解释说明Visual C++编程中怎样实现自动化，帮助读者对自动化的实现过程有一个感性的认识，所以为了简单起见，该程序的功能是仅仅选择一个Word2000的*.Doc文档，并将它的内容都在该程序的\"视\"中显示出来。为了达到这个目的，就需要启动Word2000打开用户所选择的文件，进行全选和剪贴板操作，然后将数据粘贴到\"视\"中。

在这个例子的具体实现中，我们的应用程序为自动化的客户端，Word2000为自动化的服务器端。首先生成一个新的单文档应用程序，给该项目起个名字为\"kk\"，视的基类选择CEditView，由于Office中的许多操作是由VBA语言来实现的，所以我们在使用自动化操作Word2000的过程中，为了清楚Word2000的工作过程，我们要对VBA有所了解，这些知识可以通过在Word中录制宏来实现。录制宏的步骤如下：启动Word2000，选择工具菜单下的录制宏子菜单，为一个新的宏起个名字为Macro1，开始录制宏，这时候窗口出现一个浮动工具条，点击上面的按钮可以停止或暂停宏的录制。下面是实现打开一个Word2000文档、全部选择文档内容并将数据存放到剪贴板上的操作的宏代码：

\' Sub Macro1()

\'\' 宏在 由 LiuTao 录制

\'

en FileName:=\"基于Visual c\", ConfirmConversions:=False, _

ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:=\"\", _

PasswordTemplate:=\"\", Revert:=False, WritePasswordDocument:=\"\", _

WritePasswordTemplate:=\"\", Format:=wdOpenFormatAuto

oleStory

py

End Sub

查看宏代码可以点击Word2000中工具菜单下的Visual Basic 器。从上面的代码中可以看出对Word2000的这几个操作用到了Documents、Selection这两个自动化服务器端显示出来的对象和它们的方法。

为了操作Word2000，需要使用它的类型库，这可以在b文件中找到，这个文件通常情况下位于Microsoft Office的安装目录下面。利用Visual C++中的ClassWizard可以方便的向应用程序添加新的类型库，在程序中启动ClassWizard ，选择Add class…. \\From a type library …\\C:\\OFFICE\\msword b，在弹出的对话框中选择_Application，_Documents，Selection，这样就可以为客户端程序程序中使用到的每个Word2000对象建立相应的C++类。这些类的定义和实现分别在msword9.h和p文件中给出。

为了使我们生成的项目支持自动化，为此我们要在项目中的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(Modal()==IDOK)

strFilePath=tPathName();//获取要打开的Word文档的名字；

_Application m_App;//定义Word提供的应用程序对象；

Documents m_Docs;//定义Word提供的文档对象；

Selection m_Sel;//定义Word提供的选择对象；

m_leaseDispatch();

m_leaseDispatch();

m_App.m_bAutoRelease=true;

if(!m_eateDispatch(\"plication\"))

{

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_tachDispatch(m_tDocuments());//将Documents类对象m_Docs和Idispatch接口关联起来；

m_en(varFilePath,varFalse,varFalse,varFalse,

varstrNull,varstrNull,varFalse,varstrNull,

varstrNull,varTrue,varTrue,varTrue);

//打开Word文档；

m_tachDispatch(m_tSelection());//将Selection类对象m_Sel和Idispatch接口关联起来；

m_oleStory ();//选择文档中的全部内容；

m_py();//将数据拷贝到剪贴板

this-GetEditCtrl( ).Paste ();//将数据粘贴到程序的\"视\"中；

m_leaseDispatch();//断开关联；

m_leaseDispatch();

}

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