如果用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