VB 中OLE 加载 Word 文档，如何不显示Word菜单

Question

Dim recWord As Object
 Dim recDocument As Word.Document
 Dim mMenuBar As CommandBar
 Set recWord = Nothing
 If (recWord Is Nothing) Then
     Set recWord = CreateObject("word.application")
 End If
        
 Set mMenuBar = recWord.Application.CommandBars("Menu Bar")
 mMenuBar.Controls(1).CommandBar.visible=false'屏蔽掉第一项菜单，以后的菜单同理即可

Answer 1

最后一句可能改为：
 mMenuBar.Controls(1).visible=false'屏蔽掉第一项菜单，以后的菜单同理即可

Answer 2

不过，在程序退出时你要恢复这些设置，否则word以后打开就一直看不见菜单了

Answer 3

请问，如何取出Word 的菜单栏的名字？

Answer 4

其实用个循环语句就行了。
for i=1 to mMenuBar.Controls.Count
    mMenuBar.Controls(i).visible=false  '屏蔽掉第i项菜单
next i

Answer 5

取word的菜单栏的名字：
for i=1 to mMenuBar.Controls.Count
     Debug.print mMenuBar.Controls(i).Caption '打印各菜单项
next i
如果要打印出各菜单中的菜单命令名字：
for i=1 to mMenuBar.Countrols.Count
     Debug.print mMenuBar.Controls(i).Caption 
     for j=1 to mMenuBar.Controls(i).Controls.Count
        Debug.print mMenuBar.Controls(i).Controls(j).Caption
     next j
next i

Answer 6

能否给出详细代码？
我按上面的调试不成功，
这个是用OLE嵌入的Word还是创建的Word对象？