人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

下記のVBA【2】のコードでエラーが出なくなるようにする方法を教えてください。

【1】操作をマクロ登録し、ツールバーにボタンを置いて使用。正常動作。
Sub Macro1()
' Macro1 Macro
' 幅を100%にする
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub

【2】ファイルを開いたとき自動で実行されるが、エラーが出る。
Private Sub Document_Open()
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
End Sub
実行時エラー '91':
オブジェクト変数または With ブロック変数が設定されていません。

●質問者: sample2
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● taroe
●100ポイント

http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200607/06070012.txt
おそらく、この問題と同じだと思います。

ファイルを開いたときに、
ActiveWindow.ActivePaneが不定になるためエラーになります。
ファイルを開いたときというのは自身を開くときなので、環境によってはエラーになるのかもしれません。

明示的にオブジェクトを指定してください。


sample2さんのコメント
ありがとうございます。リンク先を読んでみましたが、私にはわかりませんでした。

2 ● kodairabase
●400ポイント ベストアンサー

以下のようにしてみてください。

Private Sub Document_Open()
 With ActiveDocument.ActiveWindow
 .ActivePane.View.Zoom.PageFit = wdPageFitBestFit
 End With 
End Sub

sample2さんのコメント
できました! ありがとうございます!
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ