用VC6.0编写Word插件(Office2K、XP、03)

来源：作者：出处：巧巧读书 2007-10-09 进入讨论组

访问 http://www.qqread.com/word/d349798.html

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

　　第四步，同时需要import两个office的文件，一个是MSO.dll，另一个是MSWORD.OLB。这两个文件可以在以下位置找到(具体位置与office安装路径有关):

　　C:Program FilesCommon FilesMicrosoft SharedOFFICE11

　　C:Program FilesMicrosoft OfficeOFFICE11

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

#import "C:\Program Files\Common Files\Microsoft Shared\OFFICE11\mso.dll"
　　　　
　　　　rename_namespace("Office") named_guids,exclude("Pages")
using namespace Office;
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.olb" rename_namespace("VBE6")
using namespace VBE6;
#import "C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB" rename("ExitWindows","ExitWindowsEx")
#import "C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB"
　　　　
　　　　rename_namespace("Word"), raw_interfaces_only, named_guids ,exclude("Pages")
using namespace Word;

加完以上代码以后一定要编译一下，看看是否能够成功。引入这两个文件的原因，主要是为了引入一些变量类型，为后面的创建UI作准备。

　　最后一步，编写代码。在OnConnection加入如下代码：

　　　CComPtr < Office::_CommandBars> spCmdBars;
　　　CComQIPtr <Word::_Application> spApp(Application);
　　　ATLASSERT(spApp);
　　　HRESULT hr = spApp->get_CommandBars(&spCmdBars);
　　　if(FAILED(hr))
　　　return hr;
　　　ATLASSERT(spCmdBars);
　　　CComVariant vName("MyAddin");
　　　CComPtr <Office::CommandBar> spNewCmdBar;
　　　CComVariant vPos(1);
　　　CComVariant vTemp(VARIANT_TRUE);
　　　CComVariant vEmpty(DISP_E_PARAMNOTFOUND, VT_ERROR);
　　　spNewCmdBar = spCmdBars->Add(vName, vPos, vEmpty, vTemp);
　　　
　　　CComPtr < Office::CommandBarControls> spBarControls;
　　　spBarControls = spNewCmdBar->GetControls();
　　　ATLASSERT(spBarControls);
　　　
　　　CComVariant vToolBarType(1);
　　　CComVariant vShow(VARIANT_TRUE);
　　　CComPtr < Office::CommandBarControl> spNewBar;
　　　spNewBar = spBarControls->Add(vToolBarType, vEmpty, vEmpty, vEmpty, vShow);
　　　ATLASSERT(spNewBar);
　　　　
　　　CComQIPtr < Office::_CommandBarButton> spCmdButton(spNewBar);
　　　ATLASSERT(spCmdButton);
　　　　
　　　HBITMAP hBmp =(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))
　　　return hr;
　　　　
　　　spCmdButton->PutVisible(VARIANT_TRUE);
　　　spCmdButton->PutCaption(OLESTR("myAddin"));
　　　spCmdButton->PutEnabled(VARIANT_TRUE);
　　　spCmdButton->PutTooltipText(OLESTR("test1"));
　　　spCmdButton->PutTag(OLESTR("test1"));
　　　spNewCmdBar->PutVisible(VARIANT_TRUE);
　　　　
　　　m_spCmdButton = spCmdButton;