Wordのツールバーを固定する

バージョンアップするたびにバカがひどくなるマイクロソフトのOfficeですが、
バージョン2002あたりから、フローティングさせているツールバーが
テキストの改行と共に勝手に移動してしまうようになりました。






スピードが必要なビジネスユースで、道具にふわふわと思い思いの場所に移動されるのは非常にストレスなので、
この機能を殺そうとしましたが切設定がどこにもありません。

仕方がないのでレジストリの改変等でなんとかならないかとネットで情報を探したら、
Excelには便利なプラグインを個人で作って いらっしゃる方がおられました。
Wordは情報がなかなか得られませんでしたが、海外のサイトでマクロで解決できそうなヒントを見つけました。



で、マクロを作ってみたらうまくいったので記します。
ツールバーの移動を禁止するマクロです。

Word起動時に自動実行するよう、標準モジュールではなく、This Documentの方に書き込みます。



全てのツールバーを固定する書き方が分からないので、ツールバーひとつひとつを指定しています。

Private Sub Document_Open()

CommandBars("インデント").Protection = msoBarNoMove

CommandBars("臨時").Protection = msoBarNoMove

End Sub

これでもうツールバーはふわふわしません。



移動させたいときのために固定を解くマクロも作りました。
こちらは標準モジュールに書き込みます。

Sub フローティングツールバー固定切替()

If CommandBars("インデント").Protection = msoBarNoMove Then

CommandBars("インデント").Protection = msoBarNoProtection

Else

CommandBars("インデント").Protection = msoBarNoMove

End If


If CommandBars("臨時").Protection = msoBarNoMove Then

CommandBars("臨時").Protection = msoBarNoProtection

Else

CommandBars("臨時").Protection = msoBarNoMove

End If

End Sub

実行するたびに固定の入/切を切り替えます。
私は表示メニューに入れています。



現在のOfficeは暴挙によりツールーバーが無くなってしまいましたが、ビジネスユースではまだ2002や2003が主流だと思いますので、
同じようにお困りの方も少なくはないのではと思います。
マクロについては素人レベルで恥ずかしいのですが、お役に立てれば幸いです。
また、もっと洗練されたマクロにしていただけると幸いです。


※家にはWord2000までしかないので、画像は2000を用いています。
　この問題が発生しない2000には不本意なことでしょうが、弟妹の不始末なのでご容赦願います。