VC6编写Office插件Word文档格式.docx

资源描述

VC6编写Office插件Word文档格式.docx

《VC6编写Office插件Word文档格式.docx》由会员分享，可在线阅读，更多相关《VC6编写Office插件Word文档格式.docx（51页珍藏版）》请在冰豆网上搜索。

VC6编写Office插件Word文档格式.docx

HKCU

{

Software

Microsoft

Office

{

Word

Addins

TestAddin.SimAddin'

valFriendlyName=s'

WORDCustomAddin'

valDescription=s'

WordCustomAddin'

valLoadBehavior=d'

00000003'

valCommandLineSafe=d'

00000001'

}

以上代码由三个需要注意的地方：

1.Office下面的那个子项代表了这个插件是属于那个组件，Word、Excel、Outlook等等。

2.Addins下面的那个子项要写成你添加的COM组件的名字，千万不要照着我的工程的名字照抄。

3.所有的值两边加的都是单引号，而且要用英文下的单引号，不能用双引号。

这样一个Office插件的框架才算完成，你可以在OnConnection函数中加一些测试代码，看看有没有执行到，如果执行成功才能继续，否则检查上面的步骤有没有错误。

第四步，同时需要import两个office的文件，一个是MSO.dll，另一个是MSWORD.OLB。

这两个文件可以在以下位置找到（具体位置与office安装路径有关）:

\ProgramFiles\CommonFiles\MicrosoftShared\OFFICE11

\ProgramFiles\MicrosoftOffice\OFFICE11

然后在stdafx.h中加入如下语句：

#import"

\\ProgramFiles\\CommonFiles\\MicrosoftShared\\OFFICE11\\mso.dll"

rename_namespace（"

Office"

）named_guids,exclude（"

Pages"

）

usingnamespaceOffice;

\\ProgramFiles\\CommonFiles\\MicrosoftShared\\VBA\\VBA6\\VBE6EXT.olb"

VBE6"

usingnamespaceVBE6;

\\ProgramFiles\\MicrosoftOffice\\OFFICE11\\MSWORD.OLB"

rename（"

ExitWindows"

ExitWindowsEx"

Word"

）,raw_interfaces_only,named_guids,exclude（"

usingnamespaceWord;

加完以上代码以后一定要编译一下，看看是否能够成功。

引入这两个文件的原因，主要是为了引入一些变量类型，为后面的创建UI作准备。

最后一步，编写代码。

在OnConnection加入如下代码：

CComPtr<

Office:

_CommandBars>

spCmdBars;

CComQIPtr<

Word:

_Application>

spApp（Application）;

ATLASSERT（spApp）;

HRESULThr=spApp->

get_CommandBars（&

spCmdBars）;

if（FAILED（hr））

returnhr;

ATLASSERT（spCmdBars）;

CComVariantvName（"

MyAddin"

）;

Office:

CommandBar>

spNewCmdBar;

CComVariantvPos

（1）;

CComVariantvTemp（VARIANT_TRUE）;

CComVariantvEmpty（DISP_E_PARAMNOTFOUND,VT_ERROR）;

spNewCmdBar=spCmdBars->

Add（vName,vPos,vEmpty,vTemp）;

CommandBarControls>

spBarControls;

spBarControls=spNewCmdBar->

GetControls（）;

ATLASSERT（spBarControls）;

CComVariantvToolBarType

（1）;

CComVariantvShow（VARIANT_TRUE）;

CommandBarControl>

spNewBar;

spNewBar=spBarControls->

Add（vToolBarType,vEmpty,vEmpty,vEmpty,vShow）;

ATLASSERT（spNewBar）;

_CommandBarButton>

spCmdButton（spNewBar）;

ATLASSERT（spCmdButton）;

HBITMAPhBmp=（HBITMAP）:

LoadImage（_Module.GetResourceInstance（）,

MAKEINTRESOURCE（IDB_BITMAP）,IMAGE_BITMAP,0,0,LR_LOADMAP3DCOLORS）;

OpenClipboard（NULL）;

EmptyClipboard（）;

SetClipboardData（CF_BITMAP,（HANDLE）hBmp）;

CloseClipboard（）;

DeleteObject（hBmp）;

spCmdButton->

PutStyle（Office:

msoButtonIconAndCaption）;

hr=spCmdButton->

PasteFace（）;

if（FAILED（hr））

PutVisible（VARIANT_TRUE）;

PutCaption（OLESTR（"

myAddin"

））;

PutEnabled（VARIANT_TRUE）;

PutTooltipText（OLESTR（"

test1"

PutTag（OLESTR（"

spNewCmdBar->

m_spCmdButton=spCmdButton;

这样，再次打开word，就可以看到如图一所示的界面效果了。

图9

但是点击时没有响应，最后就让我们来解决这个问题。

1.在COutlookAddin继承类中加入IDispEventSimpleImpl继承，代码如下:

classATL_NO_VTABLECOutlookAddin:

publicCComObjectRootEx<

CComSingleThreadModel>

……

publicIDispEventSimpleImpl<

1,COutlookAddin,&

__uuidof（Office:

_CommandBarButtonEvents）>

2.声明_ATL_SINK_INFO结构回调参数信息。

在OutlookAddin.h文件中加入下面语句：

//按钮事件响应信息声明

extern_ATL_FUNC_INFOOnClickButtonInfo;

在OutlookAddin.cpp文件中加入定义语句，如下：

//按钮事件响应信息定义

_ATL_FUNC_INFOOnClickButtonInfo={CC_STDCALL,VT_EMPTY,2,{VT_DISPATCH,VT_BYREF

|VT_BOOL}};

3.加入Sink映射，如下：

EGIN_SINK_MAP（COutlookAddin）

SINK_ENTRY_INFO（1,__uuidof（Office:

_CommandBarButtonEvents）,/*dispid*/

0x01,OnClickButton1,&

OnClickButtonInfo）

SINK_ENTRY_INFO（2,__uuidof（Office:

0x01,OnClickButton2,&

SINK_ENTRY_INFO（3,__uuidof（Office:

0x01,OnClickMenu,&

END_SINK_MAP（）

4.加入事件函数。

在OutlookAddin.h中加入声明：

void__stdcallOnClickButton1（IDispatch*/*Office:

_CommandBarButton**/

Ctrl,VARIANT_BOOL*CancelDefault）;

在OutlookAddin.cpp中加入实现：

//工具条按钮1点击事件响应函数

void__stdcallCWordAddin:

OnClickButton1（IDispatch*

/*Office:

_CommandBarButton**/Ctrl,VARIANT_BOOL*CancelDefault）

{

MessageBox（NULL,"

hello"

world"

MB_OK）;

5.最后，打开或断开与接口的连接。

方法如下

在OnConnection接口函数的最后部分，加入下面代码来打开连接：

CommandButton1Events:

DispEventAdvise（（IDispatch*）m_spButton）;

在OnDisconnection接口函数中，加入下面代码来断开连接：

DispEventUnadvise（（IDispatch*）m_spButton）;

综上所述，编写一个简单的office的插件，其实并不难，只要按照步骤一步一步进行，肯定能成功，如果大家在使用过程中有什么疑问，欢迎一起探讨。