Office Spy DIY

最新推荐文章于 2017-05-05 19:15:13 发布
最新推荐文章于 2017-05-05 19:15:13 发布
阅读量1.7k 收藏 2
点赞数
分类专栏： VC编程手札 文章标签： office 文档 application null vba wizard
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/asanscape/article/details/2114455
版权

Office Spy DIY

作者: 阿珊境界

针对不同应用程序进行内容监视和文本获取，网上介绍了不少，如针对聊天工具、Web页面等。今天，笔者和大家一起来DIY一个Office Spy，针对MS Office，利用其COM接口获取文本，保存其文档内容。

 

下载源代码

这里我们以MS Word为例进行叙述，其它Office组件可以触类旁通。Office的COM接口提供了_Application（应用程序）、Documents（所有文档）、Document（一个文档）、_Document（活动文档）、Selection（内容对象）等众多对象给我们使用。我们要做的获取文本、保存文档动作就是对这些对象的操作。好，知道了原理，下面开工。

程序框架

打开VC6，新建一个基于对话框的工程OfficeSpy，删除界面上原有的确定、取消按钮和静态文本标签，添加“获取文本”按钮（IDC_BTN_GETTEXT）、“保存文档”按钮（IDC_BTN_SAVEDOC）和一个编辑框（IDC_EDIT1），并选中其Multiline属性和Vertical Scroll属性。界面设计如图1。

 

图1

打开Class Wizard，点击下拉按钮Add Class，从下拉菜单中选择From a type Library。Word2003的类型库文件名为Msword.olb，在诸如C:/Program Files/Microsoft Office/OFFICE11的文件夹下。Word2000的类型库文件名为Msword9.olb。选择类型库后，在接下来的Confirm Classes对话框中选择_Application、_Document、Selection三个类。如图2所示：

图2

保留其缺省头文件名msword.h和源文件名msword.cpp。在引用这些对象的源文件中，需要包含该头文件。在使用这些对象之前，需要对其进行初始化，打开COffceSpyApp中的InitInstance()函数，在其中添加 AfxOleInit()语句即可。

获取文本

获取文本的大致步骤为：获取应用程序对象、活动文档对象、内容对象，获取文本成功后删除各对象指针。其代码如下：

void COfficeSpyDlg::OnBtnGettext()

{

       CLSID cs;

       HRESULT hr=::CLSIDFromProgID((LPCOLESTR)L"Word.Application",&cs); //由ProgID得到CLSID

       if(hr!=S_OK)

       {

              MessageBox("你可能没有安装OFFICE。");

              return;

       }

      

       IUnknown *pUnknown=NULL;

       IDispatch *pDispatch=NULL;

       _Application app=NULL;  //WORD对象

       Selection sel=NULL;   //内容对象

      

       hr=::GetActiveObject(cs,NULL,&pUnknown);

       if(hr!=S_OK)

       {

              MessageBox("没有WORD在运行。");

              return;

       }

       hr=pUnknown->QueryInterface(IID_IDispatch,(LPVOID *)&app);

       if(hr!=S_OK)

       {

              MessageBox("获取WORD接口指针失败。");

              return;

       }

       pUnknown->Release();

       pUnknown=NULL;

       sel=app.GetSelection();

       if(!sel)   

       {

              MessageBox("没有打开WORD文档。");

              return;

       }

      

       long start=sel.GetStart();  //取得插入点

       long end=sel.GetEnd();

       sel.WholeStory();                      //全部选择

       CString str=sel.GetText();         //取得文本

       sel.SetStart(start);   //恢复插入点

       sel.SetEnd(end);

       SetDlgItemText(IDC_EDIT1,str);

       if(pUnknown)

              pUnknown->Release();

       if(sel)    

              sel.ReleaseDispatch();

       if(app)   

              app.ReleaseDispatch();

}

保存文档

由上面的介绍，可以猜到保存文档是对_Docuent（当前活动文档）进行操作。查阅MSDN可知，_Document有个SaveAs成员函数，从字面上看大概就是它了。函数原形如下：

void SaveAs(VARINAT* FileName,

VARINAT* FileFormat,

VARINAT* LockComments,

VARINAT* Password,

VARINAT* AddToRecentFiles,

VARINAT* WritePassword,

VARINAT* ReadOnlyRecommended,

 VARINAT* EmbedTrueTypeFonts,

VARINAT* SaveNativePictureFormat,

VARINAT* SaveFormsData,

VARINAT* SaveAsAOCELetter)

数一数，11个参数，晕倒了吧？这些参数该如何设呢？我们可以助VBA。打开任一篇Word文档，选择菜单工具/宏/录制新宏，等宏录制工具栏出现后，选择菜单文件/另存为，文件名设为abcde.doc。停止宏录制，查看宏代码，如下：

ActiveDocument.saveas FileName:="abcde.doc", _

FileFormat:=wdFormatDocument, _

LockComments:=False, _

Password:="", _

AddToRecentFiles:=True, _

WritePassword :="", _

ReadOnlyRecommended:=False, _

EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, _

SaveFormsData:=False, _

SaveAsAOCELetter:= False

不难发现，VBA中SaveAs的11个参数和COM接口对象_Document的SaveAs的11个参数是一一对应的。为了方便操作VARIANT类型变量，使用 CComVariant 模板类，所以要在OfficeSpyDlg.cpp文件中包含atlbase.h文件。本工程“另存DOC”按钮的代码如下：

void COfficeSpyDlg::OnBtnSavedoc()

CString szFilter="MS Word files|*.doc|All files|*.*||";

CFileDialog dlg(FALSE,"","",0,szFilter,NULL);

if(IDCANCEL==dlg.DoModal ())

       　　return;

CString strFileName=dlg.GetPathName();

……//引用COM接口代码与获取文本部分相同，此处省略

_Document doc=app.GetActiveDocument();

//初始化下列参数时的子参数何来?可以录制一段VBA宏而来

CComVariant FileName(_T(strFileName)),FileFormat(0);

CComVariant LockDocuments(false),Password=_T("");

CComVariant AddToRecentFiles(false),WritePassword(_T(""));

CComVariant ReadOnlyRecommended(false),EmbedTrueTypeFonts(false);

CComVariant SaveNativePictureFormat(0),SaveFormsData(false),SaveAsAOCELetter(false);

CComVariant encoding(0),InsertLineBreaks(0),AllowSubstitutions(0);

CComVariant LineEnding(0),AddBiDiMarks(0);

doc.SaveAs (&FileName,&FileFormat,&LockDocuments,&Password,&AddToRecentFiles,&WritePassword,

              &ReadOnlyRecommended,&EmbedTrueTypeFonts,&SaveNativePictureFormat,

              &SaveFormsData,&SaveAsAOCELetter);

if(pUnknown) pUnknown->Release();

if(sel)     sel.ReleaseDispatch();

if(doc) doc.ReleaseDispatch();

if(app)    app.ReleaseDispatch();

}

结束语

　　Office COM接口提供给我们的功能远不止这些，用它还可以实现文本输入、表格绘制、图形绘制、文档打印、设置密码等Office原有的大部分功能。此文只作抛砖引玉，撰写过程中参考了 杨 老师的相关技术资料，特此鸣谢。代码在Window XP + VC6.0中调试通过。欢迎访问我的个人主页http://www.asanscape.com，欢迎加入我们的VC讨论群713035。

 
晨山往事
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Vehicle Spy 3学习手册
10-10
Vehicle Spy 3学习手册,step by step .
VB中实现网页和EXE交互
阿珊境界
01-20 8353
实例1, 通过网页元素属性交互： 1.  正常编写HTML页面，利用元素的url属性传递参数。例如某个链接写成： 执行此应用程序 2. VB中编写代码。首富，引入WebBrowser控件，在部件中选中“Microsoft Internet Controls”；     引用它比较安全，发布时不用带上，因为WINDOWS系统都会有它，且会随着电脑上IE的不同而不同，内核版本完全一致。
Spy++原理初探
阿珊境界
03-02 8890
Spy++原理初探 作者:南京 阿珊境界 源代码下载 用Visual Studio搞开发的朋友对Spy++这个工具一定不陌生，它可以分析窗体结构、进程和窗口消息，对开发工作有很大辅助作用。我们最常使用它的窗口查找功能，按Ctrl + F调出其查找窗口，拖动探测器的指针到指定窗口/控件上释放即可。下面，笔者就和大家一起，用VC打造一个属于自己的Spy++。   　　打开VC集成开发
Spy++原理初探http://www.vckbase.com/document/viewdoc/?id=1782
xu的blog
11-07 2394
导读： 下载源代码摘要：用Visual Studio搞开发的朋友对Spy++这个工具一定不陌生，它可以分析窗体结构、进程和窗口消息，对开发工作有很大辅助作用。我们需要研究某个对象时，只要调出其查找窗口，拖动探测器的指针到指定窗口/控件上释放即可。下面，笔者就和大家一起，用VC打造一个属于自己的Spy++。 关键字：句柄 消息 子类化 正文：　　打开VC集成开发环境，建立一个基于对话
易语言SPY特工
08-22
易语言SPY特工源码系统结构:子程序1,GetMore,WindowFromPoint,SendMessageA,GetKeyState,GetWindowLongA,GetClassLongA,GetClassNameA, ======窗口程序集1 || ||------_时钟1_周期事件 || ||------子程序1 || ||----...
SPY课程_spy_
10-03
SPY 学习整理笔记，只是部分，包括脚本编辑，发送数据等相关
易语言网页SPY
08-19
易语言网页SPY源码系统结构:SysMenuHandler,取网页元素,从剪贴板取位图,取IES对象,对象写属性,Skin,ObjectFromLresult,RegisterWindowMessageA,SendMessageTimeoutA,打开剪贴板,关闭剪贴板,获取剪贴板数据,M
易语言迷你SPY
08-21
易语言迷你SPY源码系统结构:ReleaseCapture,WindowFromPoint,GetClassName,GetWindowLong,GetWindowText,GetWindowThreadProcessId,SetCapture,取颜色,创建场景,关闭场景,发送消息, ======窗口程序集1 || ||------__...
让用VS2012/VS2013编写的程序在XP中顺利运行
热门推荐
阿珊境界
08-22 7万+
微软为了推销自家平台，VS2012和VS2013编写的应用程序只能在Vista/Win7/Win8上运行。但幸好还保留了生成XP程序的设置项。
ADO在C++中的使用
阿珊境界
12-18 1万+
最近程序中用到读写数据库，看了些例子，查了番MSDN，下面把详细步骤写出来，以备忘，或与同行共勉。
利用manifest文件或资源文件让程序以管理员身份运行
阿珊境界
05-05 5513
进入Vista时代特别是Win10以后，管理员机制显得很严格，以前能正常运行的程序也出了问题。Win7的盗版系统较多，义务为我们提升到了管理员权限。而Win10原生宣称免费，所以默认就是分清权限的，最明显的，是具有管理员权限的程序图标右下角都会出现一个盾牌。     那么，我们能不能让我们的程序也天生具有这样的盾牌呢？ 以下为转载内容： 最近弄vs2005 可执行文件在win7上运行
利用WinInet和多线程实现实时显示的下载进度条
阿珊境界
08-26 5480
利用WinInet和多线程实现下载进度实时显示   作者：阿珊境界   源代码下载 大家对Internet文件下载一定不陌生，如果不讲究下载细节，一个API函数URLDownloadToFile就能搞定。但如果你要下载的数据量较大，或你的软件需要在线升级，那么，还是给个进度条让用户看看，免得让人以为你的软件已经挂掉。要实现这些，首先用到的就是多线程技术，把下载线程和界面线
自定义消息实现线程间通信
阿珊境界
03-04 4908
多线程最常见的是UI主线程（下称U线程）和Worker工作者线程（下称W线程）协同工作。UI把工作传递给Worker去做，可以在启动工作线程时就传递给它（通过lParam）。字符串最好处理，直接强转成LPARAM型传过去，数据较多时，可以构造成一个结构体然后传指针过去。W工作完成后，将结果返回U，可以在获取U的句柄后直接读写其变量，但要注意线程同步问题不要引起访问冲突；也可以以向U发送自定义消息，
如何自定义窗口类名
阿珊境界
11-11 4792
Windows的标准应用程序都有约定的类名，如对话框的类名是#32770，文本框/编辑框类名是Edit，按钮类名为Button等。这也有于我们查找窗口，使用FindWindows/FindWindowEx/GetWindow等函数。但，如何把这些类名设为我们自定义的类名呢？     第一种方法：在需要更改类名的对话框资源上右击，选择“属性”，打开属性对话框，可以看到有一个名为“Class Nam
C++中时间处理
阿珊境界
07-05 3424
C++中时间处理并不复杂，特别是MFC里，封装了一堆好用的类。只是平时用得比较少，所以一些常用的操作却也不知如何做起。下面做个总结。
ListCtrl使用详述及进程列表示例
阿珊境界
12-30 2545
ListCtrl使用详述及进程列表示例作者：阿珊境界近日同事问起ListCtrl的使用示例，我竟有一种无从下手的感觉。查了查资料，觉得有必要把常用的东西都整理出来，以备后用，也方便大家。创建ListCtrl我们可以通过在界面上直接绘制和动态生成两种方式，得到其指针后就可以进行操作了。ListCtrl有三种显示模式，即图标，小图标和报表形式。下面以报表为例阐述。同时，还设置了其整行选
VC和Matlab混编第一课
阿珊境界
12-27 2314
VC和Matlab混编，最常用的就是用前者编写界面EXE，后者编写算法DLL。特别是在后者擅长的领域，如数学、仿真等显得特别有意义。 　　先说DLL生成。有下面一个m文件，实现加法功能，c=a+b，代码如下：         function [c]=abc(a,b)                c=a+b  　　设文件名为abc.m。在Matlab中加载此文件后，执行，选择“Cha
获取当前目录用GetCurrentDirectory()与从GetModuleFileName()分离之异同
阿珊境界
04-30 1614
一直使用GetCurrentDirectory()这个函数，今天发现了一个问题。 　　我的程序要读入当前目录下的配置文件，用下面代码获得其位置：         char szIni[200]={0};         ::GetModuleFileName(NULL,szIni,200);         strcat(szIni,"\\opt.ini"); 　　执行正常。发布时，
matlab spy
最新发布
08-25
你想了解如何使用MATLAB中的"spy"函数吗？spy函数用于绘制稀疏矩阵的非零元素分布图。它可以帮助你可视化矩阵中非零元素的位置。在MATLAB中，你可以通过以下方式使用spy函数： ```matlab % 创建一个稀疏矩阵 A = ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值