【WordVBA】印刷レイアウトでの余白を詰める

新規の文書は非表示に設定できましたが、外部の文書を読み込むときは問答無用でページに余白が出てきます。ダブルクリックをすればページ間の余白は詰められるものの、量が多いだけに毎回するのは面倒。マクロでしようと思うも、その方法を解説しているサイトが見当たりませんでした……。
　
やっとできたので、覚え書きとして残しておきます。

マクロの記録を侮っていた

ページの間をダブルクリックするも、マクロの記録はされず。某掲示板でマクロでできるらしいことは分かっていたので「これは自力でコードを書かないといけない系なのだ」と諦めていました。
　
ところが、正規の手順を踏んでやれば、あっさりと記録されました。
　
ファイル　→　オプション　→　表示タブ　→　印刷レイアウト表示でページ間の余白を表示するのチェックを外す

1行マクロで問題解決！

前置きが長くなりましたが、以下のコードで余白を非表示にしてくれます。

'ページ間の余白を表示しない
ActiveWindow.View.DisplayPageBoundaries = False

戻したいときはTrue（デフォルト値）にしてあげればOKです。　

'ページ間の余白を表示する（既定）
ActiveWindow.View.DisplayPageBoundaries = True

イベントマクロと組み合わせれば、文書を開いたときに自動的にマクロ実行ができる……とは思うのですが、まだそこまでたどり着けていません。どなたか、よろしくお願いいたします（他力本願）。