Automation を使用して制御する Visual Basic コードを実行すると、"実行時エラー '-2147023174' (800706ba)" エラー メッセージまたは "ランタイム エラー '462' が表示される場合がありますWord

現象の再現手順

1. Visual Basic で新しい Standard EXE プロジェクトを開始します。 Form1 は既定で作成されます。

2. [プロジェクト] メニューの [参照] をクリックし、次のいずれかのオプションをクリックします。

   • Office Word 2007 の場合は、[Microsoft Word 12.0 オブジェクト ライブラリ] をクリックします

   • Word 2003 の場合は、[Microsoft Word 11.0 オブジェクト ライブラリ] をクリックします

   • Word 2003 の場合は、[Microsoft Word 10.0 オブジェクト ライブラリ] をクリックします

   • Word 2000 の場合は、[Microsoft Word 9.0 オブジェクト ライブラリ] をクリックします。

   • Word 97 の場合は、[Microsoft Word 8.0 オブジェクト ライブラリ] をクリックします。

3. Form1 に CommandButton を配置します。

4. 次のコードを Form1 のコード ウィンドウにコピーします。

         Option Explicit
   
         Private Sub Command1_Click()
            Dim oWord As Word.Application
            Dim oDoc As Word.Document
            Dim oRange as Word.Range
   
            Set oWord = CreateObject("Word.Application")
            With oWord
                .Visible = True
                .Activate
                .WindowState = wdWindowStateNormal
            End With
   
            Set oDoc = oWord.Documents.Add
            MsgBox "Document open", vbMsgBoxSetForeground
            With oDoc
                .PageSetup.LeftMargin = InchesToPoints(1.25)
            End With
   
            ' This example inserts text at the end of section one.
            Set oRange = ActiveDocument.Sections(1).Range
            With oRange
                .MoveEnd Unit:=wdCharacter, Count:= -1
                .Collapse Direction:=wdCollapseEnd
                .InsertParagraphAfter
                .InsertAfter "End of section."
            End With
   
            With oDoc
                .Saved = True
            End With
   
            Set oRange = Nothing
            Set oDoc = Nothing
            oWord.Quit
            Set oWord = Nothing
         End Sub
   

5. [ 実行 ] メニューの [ スタート ] をクリックするか、F5 キーを押してプログラムを開始します。

6. CommandButton をクリックします。 エラーは発生しません。 ただし、Wordへの参照は作成されており、リリースされていません。

7. CommandButton をもう一度クリックし、前に説明したエラーが表示されることに注意してください。
   
   メモ このエラーは、コードが oWord オブジェクト変数で呼び出しの前に存在せずに InchesToPoints メソッドを参照しているために発生します。

8. プロジェクトを停止し、次の行を変更します。

   .PageSetup.LeftMargin = InchesToPoints(1.25)
   

   -宛先-
   
    

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
   

9. プログラムをもう一度実行します。 次に、CommandButton をクリックします。 エラーは発生しません。

10. もう一度 CommandButton をクリックすると、エラーが表示されることに注意してください。
    
    メモ このエラーは、oWord オブジェクト変数を使用して呼び出しの前に置かなくても、コードが ActiveDocument セクション 1 の Range オブジェクトを参照しているために発生します。

11. プロジェクトを停止し、次の行を変更します。

    Set oRange = ActiveDocument.Sections(1).Range
    

    -宛先-
     

    Set oRange = oWord.ActiveDocument.Sections(1).Range
    

12. プログラムをもう一度実行します。 エラーなしでコードを複数回実行できることに注意してください。

Wordを自動化する Visual Basic プロジェクトをビルドするときに、プロジェクトに Microsoft Word オブジェクト ライブラリへの参照がある場合は、Word オブジェクト モデルのオブジェクト、メソッド、プロパティのサンプル コードをWordヘルプ ファイルから入手できます。 カーソルがコード内のキーワードの上にある場合は、F1 キーを押すと、該当するヘルプ テキストが表示されます。


ヘルプ トピックのサンプル コードは、Microsoft Word Visual Basic for Applications コードです。 Visual Basic コードで必要なオブジェクト参照は表示されません。 必要に応じて修飾子を追加する必要があります。