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

Question

sample2

81

81もっと見る

500pt

コンピュータ

下記の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 ブロック変数が設定されていません。

回答の条件

1人5回まで

登録：2012/01/18 09:23:56
終了：2012/01/18 14:45:01

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.1

taroe10991322012/01/18 10:18:52

100pt

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

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

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

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

2012/01/18 14:51:20

きゃづみぃ 2012/01/18 09:42:50

環境は office2000 Wordですね。

私の環境は 2003・・・と書いたところで 2000の環境があったのを思い出したので試してます。

2003ではエラーになりませんでした。
きゃづみぃ 2012/01/18 09:47:43

別のマシン（2000）の環境で試しましたが、エラーは発生しませんでした。

ほかの要因のような感じがします。

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

kodairabase · Accepted Answer · 2012-01-18T14:21:41+09:00

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

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

kodairabase · Accepted Answer · 2012-01-18T14:21:41+09:00

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

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

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

ベストアンサー

kodairabase661802012/01/18 14:21:41

その他の回答（1件）

taroe10991322012/01/18 10:18:52

kodairabase661802012/01/18 14:21:41ここでベストアンサー

コメント（2件)

この質問への反応（ブックマークコメント）