VB 中OLE 加载 Word 文档，如何不显示Word菜单
展开全部
Dim recWord As Object
Dim recDocument As Word.Document
Dim mMenuBar As CommandBar
Set recWord = Nothing
If (recWord Is Nothing) Then
Set recWord = CreateObject("word.application")
End If
Set mMenuBar = recWord.Application.CommandBars("Menu Bar")
mMenuBar.Controls(1).CommandBar.visible=false'
屏蔽掉第一项菜单，以后的菜单同理即可
Dim recDocument As Word.Document
Dim mMenuBar As CommandBar
Set recWord = Nothing
If (recWord Is Nothing) Then
Set recWord = CreateObject("word.application")
End If
Set mMenuBar = recWord.Application.CommandBars("Menu Bar")
mMenuBar.Controls(1).CommandBar.visible=false'
屏蔽掉第一项菜单，以后的菜单同理即可
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
