Möglicherweise erhalten Sie die Fehlermeldung "Laufzeitfehler '-2147023174' (800706ba)" oder den "Laufzeitfehler '462'", wenn Sie Visual Basic-Code ausführen, der Automation verwendet, um Word

Schritte zum Reproduzieren des Verhaltens

1. Starten Sie ein neues Standard EXE-Projekt in Visual Basic. Form1 wird standardmäßig erstellt.

2. Klicken Sie im Menü Projekt auf Verweise, und klicken Sie dann auf eine der folgenden Optionen:

   • Klicken Sie für Office Word 2007 auf Microsoft Word 12.0-Objektbibliothek.

   • Klicken Sie Word 2003 auf Microsoft Word 11.0-Objektbibliothek.

   • Klicken Sie Word 2003 auf Microsoft Word 10.0-Objektbibliothek.

   • Klicken Sie für Word 2000 auf Microsoft Word 9.0-Objektbibliothek.

   • Klicken Sie für Word 97 auf Microsoft Word 8.0-Objektbibliothek.

3. Platzieren Sie ein CommandButton-Steuerelement auf Form1.

4. Kopieren Sie den folgenden Code in das Codefenster von 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. Klicken Sie im Menü Ausführen auf Start , oder drücken Sie F5, um das Programm zu starten.

6. Klicken Sie auf commandButton. Es tritt kein Fehler auf. Es wurde jedoch ein Verweis auf Word erstellt und nicht freigegeben.

7. Klicken Sie erneut auf commandButton, und beachten Sie, dass der zuvor beschriebene Fehler angezeigt wird.
   
   Hinweis Der Fehler tritt auf, weil der Code auf die InchesToPoints-Methode verweist, ohne dem Aufruf mit der oWord-Objektvariablen voran zu gehen.

8. Beenden Sie das Projekt, und ändern Sie die folgende Zeile:

   .PageSetup.LeftMargin = InchesToPoints(1.25)
   

   -An-
   
    

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
   

9. Führen Sie das Programm erneut aus. Klicken Sie dann auf commandButton. Es tritt kein Fehler auf.

10. Klicken Sie erneut auf commandButton, und beachten Sie, dass der Fehler angezeigt wird.
    
    Hinweis Der Fehler tritt auf, weil der Code auf das Range-Objekt von ActiveDocument Section verweist, ohne dem Aufruf mit der oWord-Objektvariablen voran zu gehen.

11. Beenden Sie das Projekt, und ändern Sie die folgende Zeile:

    Set oRange = ActiveDocument.Sections(1).Range
    

    -An-
     

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

12. Führen Sie das Programm erneut aus. Beachten Sie, dass Sie den Code mehrmals ohne Fehler ausführen können.

Wenn Ihr Projekt beim Erstellen eines Visual Basic-Projekts zur Automatisierung von Word über einen Verweis auf die Microsoft Word-Objektbibliothek verfügt, ist Beispielcode für die Objekte, Methoden und Eigenschaften des Word-Objektmodells in der Word Hilfedatei verfügbar. Wenn sich der Cursor über einem Schlüsselwort in Ihrem Code befindet, sehen Sie den entsprechenden Hilfetext, indem Sie F1 drücken.


Der Beispielcode im Hilfethema ist der Microsoft Word Visual Basic for Applications-Code. Es werden nicht die Objektverweise angezeigt, die für Ihren Visual Basic-Code erforderlich sind. Sie müssen die Qualifizierer nach Bedarf hinzufügen.