如果用VBA代码控制word菜单
如控制文件、视图、编辑等菜单不显示
[解决办法]
Option Explicit
Private Sub Command1_Click()
Dim objP As Word.Application
Dim intP As Integer
On Error GoTo errSub
Set objP = New Word.Application
objP.Visible = False
For intP = 1 To objP.CommandBars.Count
objP.CommandBars(intP).Enabled = False
Next intP
objP.Visible = True
Exit Sub
errSub:
End Sub