VC調用word時，怎樣才能隱藏word的某些菜單項

 1.第一種方法
Word::_DocumentPtr pDoc   =   m_lpDispatch;
if   (pDoc   )
{
Office::_CommandBarsPtr pbars=   pDoc   -> GetCommandBars   ();
if   (NULL   ==   pbars)
{
lstrcpy(g_tszErrorMsg,_T( "獲取excel的GetCommandBars接口失敗! "));
return   E_FAIL;
}
Office::CommandBarPtr pbar;
_bstr_t   bstrCommandName   =   _T( "Standard ");
pbars   -> GetItem   (bstrCommandName)-> PutVisible   (VARIANT_FALSE);
bstrCommandName   =   _T( "Formatting ");
pbars   -> GetItem   (bstrCommandName)-> PutVisible   (VARIANT_FALSE);
2.第二種方法:
    HWND   hwnd   =     FindWindowEx(m_hWnd,NULL, "EXCEL2 ",NULL);
HWND   hclosewnd   =   NULL;

while   (hwnd   !=   NULL)
{
hclosewnd   =   FindWindowEx(hwnd,NULL, "MsoCommandBar ", "工作表菜單欄 ");
if   (hclosewnd)
SendMessage(hclosewnd,WM_CLOSE,0,0);
hclosewnd   =   FindWindowEx(hwnd,NULL, "MsoCommandBar ", "圖表菜單欄 ");
if   (hclosewnd)
SendMessage(hclosewnd,WM_CLOSE,0,0);
hclosewnd   =   FindWindowEx(hwnd,NULL, "MsoCommandBar ", "格式 ");
if   (hclosewnd)
SendMessage(hclosewnd,WM_CLOSE,0,0);
hclosewnd   =   FindWindowEx(hwnd,NULL, "MsoCommandBar ", "常用 ");
if   (hclosewnd)
SendMessage(hclosewnd,WM_CLOSE,0,0);
hclosewnd   =   FindWindowEx(hwnd,NULL, "MsoCommandBar ", "圖表 ");
if   (hclosewnd)
SendMessage(hclosewnd,WM_CLOSE,0,0);

hwnd   =     FindWindowEx(m_hWnd,hwnd, "EXCEL2 ",NULL);
}