44
44
Microsoft Officeでリサーチペインが表示されないようにする
Microsoft Officeでリサーチペインが表示されないようにするにはどうすればいいですか？
これは意図的ではなく、通常、ウィンドウ間でAlt-Tabbingをしているときに発生し、痛みを伴う遅延を引き起こします。これをオフにすることはできますか？
クリックで拡大
Microsoft Officeでリサーチペインが表示されないようにするにはどうすればいいですか？
これは意図的ではなく、通常、ウィンドウ間でAlt-Tabbingをしているときに発生し、痛みを伴う遅延を引き起こします。これをオフにすることはできますか？
クリックで拡大
これを自分で何年も格闘した結果、答えがわかりました。
WordからAlt-F11を押してVBエディタを開く。
Ctrl-Gを押して、イミディエイトウィンドウを開きます。
この行を入力してEnterキーを押します。
Application.CommandBars("Research").Enabled = False
何も起こらないように見えますが、先に進んでVBエディタとWordを閉じることができます。次回Outlookを開いた時には、この機能は無効になっているはずです。
残念ながら、答えは「いいえ、これをオフにすることはできません」です。
これはかなり前から疑問に思っていたことです（2007年くらいまでの例をご紹介します）:
おそらくAutoHotkeyやAutoItなどを使ってキーをトラップするために、何か不器用なものを用意する必要があるでしょう。
これを使って、いくつかのことを試してみてください。
リサーチオプションからすべてのエントリを削除し、ネットワークベースのリサーチサービスにアクセスしようとしていないことを確認する。
ペインを常に開いたままにする(少し縮小するか、アンロックして邪魔にならない場所に隠す)。
あなたが望む答えではないと思いますが、私が見つけた限りではこれが答えです。
また、VBAを使ってOutlookでも行うことができます。Office 2010では、これらのソリューションのほとんどで削除することができなくなりました。
Word、PowerPoint、およびExcelでは、この簡単な解決策を使用することができます。
Outlookはエクスプローラとインスペクタの両方を使用しているため、より手間がかかります。そのため、解決策は2つのパートに分かれています。
パート1は、新しいインスペクタの作成を処理するために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