如果用VBA代码控制word菜单

Question

如控制文件、视图、编辑等菜单不显示

Answer 1

Option ExplicitPrivate 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

Answer 2

多谢，这个可以用。再请教个问题，如何控制word中不能复制粘贴？