获取运行中的Word，excel对象

参考获取运行中的Word对象:https://blog.csdn.net/seker_2006/article/details/1335702

PPT在CreateDispatch _T("Word.Application")可以直接使用获取当前文档，word和excel不能获取当前激活文档，需要采用以下两种方式。

1.使用AccessibleObjectFromWindow function

这里说明word的主窗口是OpusApp，_WwG是文本窗口，

#include "oleacc.h"
#pragma comment(lib,"Oleacc.lib")
HWND _hwndWwG=NULL;
BOOL CALLBACK EnumChildProc(HWND hwndChild, LPARAM lParam)
{TCHAR _className[MAX_PATH]={NULL};GetClassNameW(hwndChild ,_className, MAX_PATH);TRACE("\t\n");TRACE(_className);//AfxMessageBox(_className);if(_tcscmp((TCHAR *)lParam,_className)==0) {TRACE(_className);AfxMessageBox(_className);_hwndWwG=hwndChild;}return true;
}void CwordDlg::OnBnClickedButton1()
{CApplication m_wdApp;CComPtr<IDispatch> spDisp;//获取Word的Window对象的智能指针CWindows m_Win;//定义Word的Windows对象  HWND hwndWord=::FindWindowW(_T("OpusApp"),NULL);EnumChildWindows(hwndWord, EnumChildProc, (LPARAM) _T("_WwG"));while(_hwndWwG==NULL){EnumChildWindows(hwndWord, EnumChildProc,(LPARAM) _T("_WwG"));hwndWord = ::GetNextWindow(hwndWord, GW_HWNDNEXT);if(hwndWord==NULL){AfxMessageBox(_T("没有找到打开的wps！"));return;}}HRESULT _result;_result = AccessibleObjectFromWindow( _hwndWwG, OBJID_NATIVEOM, IID_IDispatch, (void**) &spDisp);if(_result != S_OK){AfxMessageBox(_T("AccessibleObjectFromWindow FALSE"));return;}//hwnd就是需要获取的窗口句柄 m_Win.AttachDispatch(spDisp);//成功了 m_wdApp.AttachDispatch(m_Win.get_Application());//m_App是Word的应用程序对象//CWindow0 _window0= m_wdApp.get_ActiveWindow();CDocument0 _docment0=m_wdApp.get_ActiveDocument();CShapes _shapes=_docment0.get_Shapes();CnlineShapes m_wdInlineShapes;CnlineShape m_wdInlineShape;m_wdInlineShapes=_docment0.get_InlineShapes();COleVariant vTrue((short)TRUE),    vFalse((short)FALSE),vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);//需要指定位置_shapes.AddPicture(_T("C:\\1.png"),vFalse,vTrue,COleVariant((long)1),COleVariant((long)1),COleVariant((long)100),COleVariant((long)100),vOptional);//自动在光标开始处插入//InlineShapes.AddPicture(_T("c:\\1.png"),vFalse,vTrue,vOptional);m_wdApp.DetachDispatch( );m_Win.DetachDispatch( );if(m_wdInlineShape)m_wdInlineShape.ReleaseDispatch();if(_shapes)_shapes.ReleaseDispatch();if(_docment0)_docment0.ReleaseDispatch();if(m_wdApp)m_wdApp.ReleaseDispatch();if(m_Win)m_Win.ReleaseDispatch();}

2.第二种方法

void CwordDlg::OnBnClickedButton2()
{CString strResult;// TODO: Add your dispatch handler code hereCLSID clsid;HRESULT hr;//here  is result 32bit longhr=::CLSIDFromProgID(L"Word.Application",&clsid);//通过progId取得clsIdif(FAILED(hr)){return  ;//如果没有安装word，则返回null}IUnknown *pUnknown=NULL;//com接口IDispatch *pDispatch=NULL;CApplication app=NULL;CSelection sel=NULL;hr=::GetActiveObject(clsid,NULL,&pUnknown);//查找是否有word程序运行if(FAILED(hr)){return  ;//如果没有运行word返回null}try{//获得运行word对象调用IUnknown接口的queryinterface方法,返回word对象hr=pUnknown->QueryInterface(IID_IDispatch,(LPVOID*)&app);if(FAILED(hr))throw (_T("没有取得iddispatchptr"));//释放IUnknown接口对象 pUnknown->Release();pUnknown=NULL;//通过app获得选区sel=app.get_Selection();if(!sel)throw (_T("没有正在编辑的文档"));COleVariant vTrue((short)TRUE),    vFalse((short)FALSE),vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);CnlineShapes m_wdInlineShapes;CnlineShape m_wdInlineShape;m_wdInlineShapes=sel.get_InlineShapes();m_wdInlineShape=m_wdInlineShapes.AddPicture(_T("c:\\1.png"),vFalse,vTrue,vOptional);//sel.WholeStory();//全部选择strResult=sel.get_Text();//取得文本}catch(LPCTSTR lpErr){CString s=lpErr;AfxMessageBox(s.AllocSysString()) ;}//释放资源if(pUnknown)pUnknown->Release();if(sel)sel.ReleaseDispatch();if(app)app.ReleaseDispatch();//返回取得的文档内容AfxMessageBox(strResult.AllocSysString());
}

获取运行中的Word，excel对象相关推荐

获取运行中的Word对象
程序需要获取鼠标下已打开Word的内容,只要获取_Application的接口就可以了.搞了半天,终于知道使用AccessibleObjectFromWindow函数可以实现.MSDN上讲的不清楚,还 ...
Android5.1.+ getRunningAppProcesses()获取运行中进程（第三方开源库）
google可能为了安全考虑,在5.1.+后调用activitymanager.getRunningAppProcesses()方法只能返回你自己应用的进程,那如何在5.1.+后获取运行中进程呢?一个 ...
Java中使用JCOM操作Word/Excel对象
通过使用COM技术,我们用微软Office应用程序能够建立很多应用程序扩展,但是Java开发人员却无法享受它带来的便利--除非他们拥有方便的Java访问COM的途径(Java-to-COM桥).使用J ...
计算机右键无法新建excel2007,电脑桌面右键新建菜单中没有Word/Excel/PPT等文档怎么办?...
很多朋友在安装好Office(2010或2013等)之后,发现右键新建中没有Word.Excel.PowerPoint等项,但是自己的Office却明明安装好了.这个时候该怎么办呢?这里,本文为大家提 ...
word2013插入excel对象报错_修改Word文档中嵌入的Excel对象
I need example code or even a 3rd party object that will allow me to get to an excel object embedded ...
jsp页面中显示word/excel文档方法
方法一 iframe直接引入excel文件 <form id="form1" runat="server"><iframe src=" ...
获取运行中的TeamViewer的账号和密码--中文版
2019独角兽企业重金招聘Python工程师标准>>> #define WIN32_LEAN_AND_MEAN #include <windows.h> #include ...
编程获取Revit视图中的所有实例对象数量
转载请复制以下信息: 原文链接: http://blog.csdn.net/joexiongjin/article/details/7678923 作者: 叶雄进, Autodesk ADN 问题: ...
C++获取虚表中的函数并调用
虚表的基本概念在此链接中 https://blog.csdn.net/qq78442761/article/details/84800688 获取虚表中函数的原理对象空间的最开始四字节内容,就是虚 ...

获取运行中的Word，excel对象

获取运行中的Word，excel对象相关推荐

最新文章

热门文章