44
44
停止研究窗格出现在Microsoft Office中。
我如何阻止研究窗格在Microsoft Office中出现，例如，当我按住Alt并点击Outlook中电子邮件中的某个地方时？
这是无意的，通常发生在我在窗口之间按Alt-Tab键时，会造成痛苦的延迟。可以关闭这个功能吗？
点击放大 。
我如何阻止研究窗格在Microsoft Office中出现，例如，当我按住Alt并点击Outlook中电子邮件中的某个地方时？
这是无意的，通常发生在我在窗口之间按Alt-Tab键时，会造成痛苦的延迟。可以关闭这个功能吗？
点击放大 。
在自己与这个问题斗争了多年之后，我找到了答案。
从Word中，按Alt-F11打开VB编辑器。
按Ctrl-G打开立即窗口。
输入这一行，按Enter键。
Application.CommandBars("Research").Enabled = False
注意，似乎什么都没有发生，但你可以继续关闭VB编辑器和Word。下次打开Outlook时，该功能应该会被禁用。
不幸的是，答案是 “不，这不能被关闭"。
人们已经想知道这个问题有一段时间了（这里有一些可以追溯到2007年的例子）：
你可能要用AutoHotkey或AutoIt或类似的方法来设置一些笨拙的东西来捕捉按键。
有几件事你可以尝试一下。
删除研究选项中的所有条目，并确保它不会试图访问基于网络的研究服务（这样至少它可以快速打开）。
让窗格一直处于打开状态（只需将其缩小一点，或解除锁定并将其隐藏在某个不碍事的地方）。
我相信这不是你想要的答案，但这是我能找到的答案。
你也可以在Outlook中通过VBA进行操作。Office 2010不再让你通过这些解决方案中的大多数删除。
Word、PowerPoint和Excel允许你使用【这个简单的解决方案】(https://superuser.com/a/404930/143629)。
Outlook需要更多的麻烦，因为它同时使用Explorer和Inspectors，在不同的情况下_都启用了这个命令栏。因此，解决方案有两个部分。
第一部分是设置WithEvents来处理每个新的检查器的创建。一般来说，每当你打开一个消息/事件/等，它们都会被创建/销毁。所以即使你打了当前的每个检查员，你的新检查员也不会禁用命令栏。
在你的VBA编辑器中把以下内容放入ThisOutlookSession（Alt+F11）。每个新的检查器(还有资源管理器，虽然我还没有创建资源管理器)都将禁用其命令栏。
Public WithEvents colInspectors As Outlook.Inspectors
Public WithEvents objInspector As Outlook.Inspector
Public WithEvents colExplorers As Outlook.Explorers
Public WithEvents objExplorer As Outlook.Explorer
Public Sub Application_Startup()
Init_colExplorersEvent
Init_colInspectorsEvent
End Sub
Private Sub Init_colExplorersEvent()
Set colExplorers = Outlook.Explorers
End Sub
Private Sub Init_colInspectorsEvent()
'Initialize the inspectors events handler
Set colInspectors = Outlook.Inspectors
End Sub
Private Sub colInspectors_NewInspector(ByVal NewInspector As Inspector)
Debug.Print "new inspector"
NewInspector.commandbars("Research").Enabled = False
'This is the code that creates a new inspector with events activated
Set objInspector = NewInspector
End Sub
Private Sub colExplorers_NewExplorer(ByVal NewExplorer As Explorer)
'I don't believe this is required for explorers as I do not think Outlook
'ever creates additional explorers... but who knows
Debug.Print "new explorer"
NewExplorer.commandbars("Research").Enabled = False
'This is the code that creates a new inspector with events activated
Set objExplorer = NewExplorer
End Sub
然而，这只会让Outlook中的一些视图的菜单消失。你仍然需要运行下面的宏来从所有的资源管理器中删除它。据我所知，当你关闭/重新打开Outlook时，这个菜单会持续存在。
Private Sub removeOutlookResearchBar()
'remove from main Outlook explorer
Dim mExp As Explorer
For Each mExp In Outlook.Explorers
mExp.commandbars("Research").Enabled = False
Next mExp
End Sub