如何隐藏word原有菜单与工具栏而只显示自定义的菜单与工具栏？

Question

如何隐藏word原有菜单与工具栏而只显示自定义的菜单与工具栏？谢谢！！

Answer 1

Dim objWord As Word.ApplicationPrivate Sub Command1_Click()
    Set objWord = New Word.Application
    objWord.Visible = True
    Dim i As Integer
    For i = 1 To objWord.CommandBars.Count
        Debug.Print objWord.CommandBars(i).Name
        If objWord.CommandBars(i)..... Then
            objWord.CommandBars(i).Enable=False
        End If
    Next
End Sub不过这个判断条件我还不大清楚，呵呵，是不是跟没说一样啊

Answer 2

楼上说的没错最好将要处理的内容放在自动执行过程下，这样每次打开WORD都会只显示自己的工具栏Sub AutoExec()
    Dim i As Integer
    For i = 1 To Aplication.CommandBars.Count
        If objWord.CommandBars(i)<>YourToolbar Then
            objWord.CommandBars(i).Enable=False
        End If
    Next
End Sub

Answer 3

你们好！“电厂生产管理系统”本人刚刚完成，需要的朋友可以与我联系，我用QQ直接发给你，打包后有30M，源码只有2.5M，呵。。我的QQ：450939943

Answer 4

Dim objWord As Word.ApplicationPrivate Sub Command1_Click()
    Set objWord = New Word.Application
    objWord.Visible = True
    Dim i As Integer
    For i = 1 To objWord.CommandBars.Count
        Debug.Print objWord.CommandBars(i).Name
        If objWord.CommandBars(i)<>YourToolbar Then
            objWord.CommandBars(i).Enable=False
        End If
    Next
End Sub汇总二楼、三楼！
（呵呵，下次不这样了，感觉不厚道）