VC调用word时，怎样才能隐藏word的某些菜单项

最新推荐文章于 2022-08-14 10:25:50 发布

张志峰

最新推荐文章于 2022-08-14 10:25:50 发布

阅读量1.3k

点赞数

本文链接：https://blog.csdn.net/zhangzhifeng886/article/details/6870616

版权

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);
}