Word文書がたくさんあります。どれも印刷すればA4ですが、作成者がいろいろなので、ファイルを開いたときの拡大縮小率がバラバラです。それで毎回、作業開始時に自分好みの拡大縮小率へ戻すのを面倒に感じています。私は常に「ページ幅を基準に」または「100％」で開きたいのですが、そのような設定は可能でしょうか?　使っているのはWord2000とWordXPです。あるいは、10000くらいあるWord文書の初期拡大縮小率を一括で変更できるソフトの紹介でもよいです。

閲覧7、再編集3くらいの割合ですし、内容を見てから再編集するかどうかを判断するのが基本なので、Wordのままでないと面倒です。

【1】エラーはないが自動実行もされない。
Sub Macro1()
'
' Macro1 Macro
' 幅を100%にする
'
ActiveWindow.ActivePane.View.Zoom.Percentage = 100
End Sub

【2】自動で実行されるがエラーになる。
Private Sub Document_Open()
ActiveWindow.ActivePane.View.Zoom.Percentage = 100
End Sub
実行時エラー '91':
オブジェクト変数または With ブロック変数が設定されていません。

【3】自動で実行されエラーにもならないが、やりたいことと違う。
Private Sub Document_Open()
MsgBox "開いたよ", vbOKOnly, "通知"
End Sub

http://q.hatena.ne.jp/1326846236 で解決しました。