怎样利用vba控制word菜单的显示和隐藏？

Question

感谢您使用微软产品。CommandBars("Menu Bar")不能被直接设置为invisible，但我们可以通过设置其位置来达到类似的效果。请参考以下代码：Sub Hide()
    CommandBars("Menu Bar").Position = msoBarFloating
    CommandBars("Menu Bar").Left = -CommandBars("Menu Bar").Width + 1
    CommandBars("Menu Bar").Top = -CommandBars("Menu Bar").Height + 1
End SubSub Show()
    CommandBars("Menu Bar").Position = msoBarTop
End Sub
-微软全球技术中心  桌面产品技术支持 
本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境，请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。