使用VC++ ATL开发Office COM插件（二）

7、给插件添加菜单和按钮：

　　这里简单的介绍一下Office 的命令条：在Office中，菜单栏、工具栏和弹出式菜单都叫做命令条（Command　Bar对象）。所有这些种类的命令条中都可以包括其他命令条和不 限数量的控件，如相对工具栏这个命令条而言，按钮就是它的控件。有的控件（如菜单）本身又是命令条，可以多级嵌套。所有的命令条可用一个 CommandBars集合控制。CommandBars集合是一个通用的可共享且可编程的对象，通过它的Add()方法可以为其添加一个CommandBar 对象（即命令条），而每个 CommandBar 对象都有一个CommandBarControls 集合，这个集合里包含了这个命令条里的所有控件。使用 CommandBar 对象的 Controls 属性可引用命令条中的控件。

　　现在给word加入一个工具条及其按钮和一个菜单：

　　首先在工程中加入office和Word的类型库，在stdafx.h文件中加入以下代码：

#import "C:/Program Files/Microsoft Office/Office/mso9.dll" /
rename_namespace("Office") named_guids
using namespace Office;

#import "C:/Program Files/Microsoft Office/Office/MSOUTL9.olb"
rename_namespace("Word"), raw_interfaces_only, named_guids
using namespace Outlook;
　　注意：一定要把路径改为和office的安装路径一致。

　 　在Word对象模型中，Application对象是代表整个工程的最高级对象，我们可以用它的GetCommandBars方法得到 CommandBars对象，由于CommandBars对象是Word所有工具条和菜单项的集合，所以就可以通过调用它的Add方法添加新的工具条。然 后为工具条添加新的按钮，其实方法一样简单，我们可以调用CommandBar的GetControls方法得到工具条的 CommandBarControls集合，如前所说，CommandBarControls集合是该工具条所有控件的集合，按钮自然是其中之一，那么接 下来我们就可以通过调用CommandBarControls集合的Add方法添加一个新的按钮了。下面是具体的实现代码：

CComQIPtr＜_Application＞ spApp(Application);

ATLASSERT(spApp);
m_spApp = spApp;
HRESULT hr = AppEvents::DispEventAdvise(m_spApp);

if(FAILED(hr))
　return hr;

CComPtr ＜Office::_CommandBars＞ spCmdBars;
CComPtr ＜Office::CommandBar＞ spCmdBar;
hr = m_spApp-＞get_CommandBars(&spCmdBars);

if(FAILED(hr))
　return hr;

ATLASSERT(spCmdBars);

// now we add a new toolband to Word
// to which we''ll add 2 buttons
CComVariant vName("WordAddin");
CComPtr spNewCmdBar;

// position it below all toolbands
//MsoBarPosition::msoBarTop = 1
CComVariant vPos(1);
CComVariant vTemp(VARIANT_TRUE); // menu is temporary
CComVariant vEmpty(DISP_E_PARAMNOTFOUND, VT_ERROR);

//Add a new toolband through Add method
// vMenuTemp holds an unspecified parameter
//spNewCmdBar points to the newly created toolband
spNewCmdBar = spCmdBars-＞Add(vName, vPos, vEmpty, vTemp);

//now get the toolband''s CommandBarControls
CComPtr ＜ Office::CommandBarControls＞ spBarControls;
spBarControls = spNewCmdBar-＞GetControls();
ATLASSERT(spBarControls);

//MsoControlType::msoControlButton = 1
CComVariant vToolBarType(1);

//show the toolbar?
CComVariant vShow(VARIANT_TRUE);
CComPtr ＜Office::CommandBarControl＞ spNewBar;
CComPtr ＜Office::CommandBarControl＞ spNewBar2;

// add first button
spNewBar = spBarControls-＞Add(vToolBarType,vEmpty,vEmpty,vEmpty,vShow);
ATLASSERT(spNewBar);

// add 2nd button
spNewBar2 = spBarControls-＞Add(vToolBarType,vEmpty,vEmpty,vEmpty,vShow);
ATLASSERT(spNewBar2);

_bstr_t bstrNewCaption(OLESTR("Item1"));
_bstr_t bstrTipText(OLESTR("Tooltip for Item1"));

// get CommandBarButton interface for each toolbar button
// so we can specify button styles and stuff
// each button displays a bitmap and caption next to it
CComQIPtr ＜ Office::_CommandBarButton＞ spCmdButton(spNewBar);
CComQIPtr ＜ Office::_CommandBarButton＞ spCmdButton2(spNewBar2);

ATLASSERT(spCmdButton);
m_spButton = spCmdButton;
ATLASSERT(spCmdButton2);

// to set a bitmap to a button, load a 32x32 bitmap
// and copy it to clipboard. Call CommandBarButton''s PasteFace()
// to copy the bitmap to the button face. to use
// Word''s set of predefined bitmap, set button''s FaceId to //the
// button whose bitmap you want to use
HBITMAP hBmp =(HBITMAP)::LoadImage(_Module.GetResourceInstance(),
MAKEINTRESOURCE(IDB_BITMAP1),IMAGE_BITMAP,0,0,LR_LOADMAP3DCOLORS);

// put bitmap into Clipboard
::OpenClipboard(NULL);
::EmptyClipboard();
::SetClipboardData(CF_BITMAP, (HANDLE)hBmp);
::CloseClipboard();
::DeleteObject(hBmp);

// set style before setting bitmap
spCmdButton-＞PutStyle(Office::msoButtonIconAndCaption);
hr = spCmdButton-＞PasteFace();
if (FAILED(hr))
　return hr;

spCmdButton-＞PutVisible(VARIANT_TRUE);
spCmdButton-＞PutCaption(OLESTR("Item1"));
spCmdButton-＞PutEnabled(VARIANT_TRUE);
spCmdButton-＞PutTooltipText(OLESTR("Tooltip for Item1"));
spCmdButton-＞PutTag(OLESTR("Tag for Item1"));
spCmdButton2-＞put_OnAction(OLESTR("MYMacro1"));

//show the toolband
spNewCmdBar-＞PutVisible(VARIANT_TRUE);
spCmdButton2-＞PutStyle(Office::msoButtonIconAndCaption);

//specify predefined bitmap
spCmdButton2-＞PutFaceId(1758);
spCmdButton2-＞PutVisible(VARIANT_TRUE);
spCmdButton2-＞PutCaption(OLESTR("Item2"));
spCmdButton2-＞PutEnabled(VARIANT_TRUE);
spCmdButton2-＞PutTooltipText(OLESTR("Tooltip for Item2"));
spCmdButton2-＞PutTag(OLESTR("Tag for Item2"));
spCmdButton2-＞PutVisible(VARIANT_TRUE);
spCmdButton2-＞put_OnAction(OLESTR("MYMacro2"));

　　添加菜单项的过程与之相类似：

　　首先通过调用CommandBars集合的 get_ActiveMenuBar（）方法得到一个CommandBar对象，这个对象代表当前的工程中的活动菜单，然后调用CommandBar的 GetControls得到当前菜单的控件集合。尝试在Word的“格式”菜单（第5个菜单）中加入新的菜单项，调用 CommandBarControls的GetItem(5)得到需要的“格式”菜单项，它也是一个CommandBarControls集合，（前面曾 经提到，控件集是可以嵌套的），这样就可以通过调用它的Add方法添加新的菜单项了。具体的实现代码如下：

_bstr_t bstrNewMenuText(OLESTR("New Menu Item"));
CComPtr ＜ Office::CommandBarControls＞ spCmdCtrls;
CComPtr ＜ Office::CommandBarControls＞ spCmdBarCtrls;
CComPtr ＜ Office::CommandBarPopup＞ spCmdPopup;
CComPtr ＜ Office::CommandBarControl＞ spCmdCtrl;

// get CommandBar that is Word''s main menu
hr = spCmdBars-＞get_ActiveMenuBar(&spCmdBar);
if (FAILED(hr))
　return hr;

// get menu as CommandBarControls
spCmdCtrls = spCmdBar-＞GetControls();
ATLASSERT(spCmdCtrls);

// we want to add a menu entry to Outlook''s 6th(Tools) menu //item
CComVariant vItem(5);
spCmdCtrl= spCmdCtrls-＞GetItem(vItem);
ATLASSERT(spCmdCtrl);

IDispatchPtr spDisp;
spDisp = spCmdCtrl-＞GetControl();

// a CommandBarPopup interface is the actual menu item
CComQIPtr ＜ Office::CommandBarPopup＞ ppCmdPopup(spDisp);
ATLASSERT(ppCmdPopup);
spCmdBarCtrls = ppCmdPopup-＞GetControls();
ATLASSERT(spCmdBarCtrls);

CComVariant vMenuType(1); // type of control - menu
CComVariant vMenuPos(6);
CComVariant vMenuEmpty(DISP_E_PARAMNOTFOUND, VT_ERROR);
CComVariant vMenuShow(VARIANT_TRUE); // menu should be visible
CComVariant vMenuTemp(VARIANT_TRUE); // menu is temporary

CComPtr ＜ Office::CommandBarControl＞ spNewMenu;

// now create the actual menu item and add it
spNewMenu = spCmdBarCtrls-＞Add(vMenuType, vMenuEmpty, vMenuEmpty,
vMenuEmpty, vMenuTemp);
ATLASSERT(spNewMenu);
spNewMenu-＞PutCaption(bstrNewMenuText);
spNewMenu-＞PutEnabled(VARIANT_TRUE);
spNewMenu-＞PutVisible(VARIANT_TRUE);

//we''d like our new menu item to look cool and display
// an icon. Get menu item as a CommandBarButton
CComQIPtr ＜ Office::_CommandBarButton＞ spCmdMenuButton(spNewMenu);
ATLASSERT(spCmdMenuButton);
spCmdMenuButton-＞PutStyle(Office::msoButtonIconAndCaption);

// we want to use the same toolbar bitmap for menuitem too.
// we grab the CommandBarButton interface so we can add
// a bitmap to it through PasteFace().
spCmdMenuButton-＞PasteFace();

// show the menu
spNewMenu-＞PutVisible(VARIANT_TRUE);

return S_OK;
　　这时运行程序，可以看到添加的按钮和菜单项已经出现在Word中，还需要为其加入响应事件，这样才能真正的通过插件扩展Word的功能。