神马文学网VC中通过自动化客户端操作Word2000(2)
来源：百度文库 编辑：神马文学网 时间：2024/06/03 04:57:02
http://www.sina.com.cn 2005年12月23日 14:24 天极yesky
三、程序代码
////////////////////////////////////////////////////////////////////////////
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版本的类型库就可以了。
三、程序代码
////////////////////////////////////////////////////////////////////////////
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版本的类型库就可以了。
VC中通过自动化客户端操作Word2000
VC中通过自动化客户端操作Word2000(2)
Word2000/2003操作技巧大全
vc中常用文件操作(转载)
通过FileSystemObject在网页中操作本地文件
如何从客户端 VBScript 自动化 Excel
vc中常用文件操作 - cxin917的专栏 - CSDNBlog
vc中常用文件操作(转载) - yfwei的专栏 - CSDNBlog
通过FileSystemObject在网页中操作本地文件--DingL.com
JAVA客户端通过SOAP与NET的
vc文件操作，内存映??- vc学习
vc文件操作，内存映??- vc学习??
vc文件操作，内存映射- vc学习
vc中ComboBox控件用法详解2
VC知识库BLOG-jim97的-在程式中对键盘、鼠标、显示器、桌面 操作小结
实用技巧：巧用Excel批处理实现自动化操作
vc 位图操作 BITMAPINFO 赋值
VC VB 操作注册表API
VC VB 操作注册表API
VC中MessageBox用法
VC中tinyxml使用方法
VC中字符串换行
VC中ListCtrl经验总结
VC++中(.def) 文件