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

[stuman]

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

[happy_sea]

Dim objWord As Word.Application

Private 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

不过这个判断条件我还不大清楚，呵呵，是不是跟没说一样啊

[iland9876543210]

楼上说的没错

最好将要处理的内容放在自动执行过程下，这样每次打开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

[liuwangxin]

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

[leongwong]

Dim objWord As Word.Application

Private 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

汇总二楼、三楼！
（呵呵，下次不这样了，感觉不厚道）

[Dunzip]

上面的代码是不显示工具条，菜单好像还不行哦