13,826
社区成员
发帖
与我相关
我的任务
分享怎样才能得到word中的所有工具栏，并将他们隐藏
我用下面的代码得到了word工具栏的集合对象
OleContainer1->CreateObject("Word.Application",false);
Variant Obj1=OleContainer1->OleObject;
Variant a=Obj1.OlePropertyGet("Application");
Variant b=a.OlePropertyGet("CommandBars");
但是想得到所有的工具栏对象用什么方法，用下面的方法必须知道工具栏的标示符
Variant i=b.OlePropertyGet("Item","Standard");
我看VBA中的帮助是用Basic写的用C++怎样写，谢谢
For Each cbar in CommandBars
Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible
Next
OleContainer1->CreateObject("Word.Application",false);
Variant Obj1=OleContainer1->OleObject;
Variant a=Obj1.OlePropertyGet("Application");
Variant b=a.OlePropertyGet("CommandBars");
但是想得到所有的工具栏对象用什么方法，用下面的方法必须知道工具栏的标示符
Variant i=b.OlePropertyGet("Item","Standard");
我看VBA中的帮助是用Basic写的用C++怎样写，谢谢
For Each cbar in CommandBars
Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible
Next
...全文
请发表友善的回复…
发表回复
baffling 2003-05-22
- 打赏
- 举报
gz
ppxeng 2003-03-31
- 打赏
- 举报
谢谢！！!
方法很好！！！
方法很好！！！
fi9 2003-03-28
- 打赏
- 举报
我试过了，像你这样可能不能隐藏完所有的工具栏，你可试一下这样：
IOleInPlaceObject pIoleInPleaceObject;
OleContainer1->DoVerb(0);
if (OleContainer1->OleObjectInterface->QueryInterface(IID_IOleInPlaceObject,
(void **)&pIOleInPleaceObject)
{
// error!
}
else
{
pIoleInPleaceObject->UIDeactivate();
}
IOleInPlaceObject pIoleInPleaceObject;
OleContainer1->DoVerb(0);
if (OleContainer1->OleObjectInterface->QueryInterface(IID_IOleInPlaceObject,
(void **)&pIOleInPleaceObject)
{
// error!
}
else
{
pIoleInPleaceObject->UIDeactivate();
}
jbz 2003-03-28
- 打赏
- 举报
关注
