office 插件

fangchao918628 2010-09-02 10:43:37

参照网上的一个代码（基本COPY）弄的个，在WORD中添加菜单的插件...
现在有个问题是每次运行一次word就增加一个菜单项....,看了半天不知道啥原因..

_bstr_t bstrNewMenuText(OLESTR("新增菜单条"));

		CComPtr < Office::CommandBarControls> spCmdCtrls;

		CComPtr < Office::CommandBarControls> spCmdBarCtrls; 

		CComPtr < Office::CommandBarPopup> spCmdPopup;

		CComPtr < Office::CommandBarControl> spCmdCtrl;

		

		CComPtr < Office::CommandBar> spCmdBar;



		hr = spCmdBars->get_ActiveMenuBar(&spCmdBar); 

		if (FAILED(hr))

			return hr;



		spCmdCtrls = spCmdBar->GetControls(); 

		ATLASSERT(spCmdCtrls);

		

		CComVariant vItem(5);

		spCmdCtrl= spCmdCtrls->GetItem(vItem);

		ATLASSERT(spCmdCtrl);

		

		IDispatchPtr spDisp;

		spDisp = spCmdCtrl->GetControl(); 

		

		CComQIPtr < Office::CommandBarPopup> ppCmdPopup(spDisp);  

		ATLASSERT(ppCmdPopup);

		

		spCmdBarCtrls = ppCmdPopup->GetControls();

		ATLASSERT(spCmdBarCtrls);

		

		CComVariant vMenuType(1); // 控件类型 - menu

		CComVariant vMenuPos(6);  

		CComVariant vMenuEmpty(DISP_E_PARAMNOTFOUND, VT_ERROR);

		CComVariant vMenuShow(VARIANT_TRUE); // 菜单将显示

		CComVariant vMenuTemp(VARIANT_TRUE); // 临时		

		

		

		CComPtr < Office::CommandBarControl> spNewMenu;

		// 用Add方法创建新的菜单条 spCmdCtrls spCmdBarCtrls

		spNewMenu = spCmdCtrls->Add(vMenuType, vMenuEmpty, vMenuEmpty, vMenuEmpty, vMenuTemp); 

		ATLASSERT(spNewMenu);

		

		spNewMenu->PutCaption(bstrNewMenuText);

		spNewMenu->PutEnabled(VARIANT_TRUE);

		spNewMenu->PutVisible(VARIANT_TRUE); 



		



		CComQIPtr < Office::_CommandBarButton> spCmdMenuButton(spNewMenu);

		ATLASSERT(spCmdMenuButton);

		spCmdMenuButton->PutStyle(Office::msoButtonIconAndCaption);

		

		// 同新增工具条第一个按钮位图相同方法

		spCmdMenuButton->PasteFace(); 



		// 显示菜单	

		spNewMenu->PutVisible(VARIANT_TRUE); 



		m_spMenu = spCmdMenuButton;