Problem: Automatisierungsfehler beim Aufruf unzureichend definierter Methode oder Eigenschaft

Beim Ausführen von Code, der Automatisierung zum Steuern von Microsoft Word 97 oder Word 2000 verwendet, wird möglicherweise eine der folgenden Fehlermeldungen angezeigt:

Fehlermeldung 1Fehlermeldung 2

Visual Basic hat einen Verweis zu Word eingerichtet, der mittels einer Codezeile funktioniert, die ein Word-Objekt, eine Word-Methode oder -Eigenschaft aufruft, ohne dass dieses oder diese durch eine Word-Objektvariable definiert wird. Visual Basic gibt diesen Verweis erst wieder frei, wenn Sie das Programm beenden. Dieser unzureichend definierte Verweis verursacht einen Konflikt mit dem Automatisierungscode, wenn der Code mehr als ein Mal ausgeführt wird.

Ändern Sie den Code so, dass jeder Aufruf eines Objekts, einer Methode oder Eigenschaft von Word durch die entsprechende Objektvariable definiert wird.

Es handelt sich hierbei um ein beabsichtigtes Verhalten.

Zum Automatisieren von Microsoft Word legen Sie eine Objektvariable fest, die normalerweise auf die Word-Anwendung oder das Dokumentobjekt verweist. Weitere Objektvariablen können dann festgelegt werden und auf eine Markierung, einen Bereich oder andere Objekte im Microsoft Word-Objektmodell verweisen. Wenn Sie Code schreiben, der ein Word-Objekt, eine Word-Methode oder -Eigenschaft verwendet, sollte dem Aufruf immer eine entsprechende Objektvariable vorhergehen. Achten Sie nicht darauf, verwendet Visual Basic einen Verweis mittels einer verborgenen globalen Variablen, die für die aktuell ausgeführte Instanz festgelegt wird. Wird Word beendet oder wird die deklarierte Objektvariable freigegeben, verweist die verborgene globale Variable auf ein ungültiges (d. h. zerstörtes) Objekt. Beim erneuten Ausführen des Automatisierungscodes schlagen Aufrufe der verborgenen Objektvariablen fehl, und die bereits genannte Fehlermeldung wird angezeigt.

Die folgenden Schritte veranschaulichen, wie das Problem reproduziert und korrigiert werden kann.

Schritte zum Reproduzieren des Verhaltens

1. Starten Sie in Visual Basic ein neues Standard-EXE-Projekt. Form1 wird standardmäßig erstellt.
2. Klicken Sie im Menü Projekt auf Verweise, und aktivieren Sie Microsoft Word 8.0 Object Library für Word 97. Aktivieren Sie für Word 2000 Microsoft Word 9.0 Object Library. Aktivieren Sie für Word 2002 Microsoft Word 10 Object Library.
3. Fügen Sie eine Befehlsschaltfläche in Form1 ein.
4. Kopieren Sie 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 Starten, oder drücken Sie F5, und das Programm zu starten.
6. Klicken Sie auf die Befehlsschaltfläche. Ein Fehler tritt nicht auf. Es wurde jedoch ein Verweis zu Word 97 oder 2000 erstellt, der nicht wieder freigegeben wurde.
7. Klicken Sie erneut auf die Befehlsschaltfläche, und beachten Sie, dass jetzt der bereits beschriebene Fehler auftritt.
   
   HINWEIS: Der Fehler tritt auf, weil der Code auf die InchesToPoints-Methode verweist, ohne dass dem Aufruf die Objektvariable oWord vorangeht.
8. Halten Sie das Projekt an, und ändern Sie folgende Zeile:

   .PageSetup.LeftMargin = InchesToPoints(1.25)
   					

   - zu -

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
   					

9. Führen Sie das Programm erneut aus. Klicken Sie dann auf die Befehlsschaltfläche. Ein Fehler tritt nicht auf.
10. Klicken Sie erneut auf die Befehlsschaltfläche, und beachten Sie, dass der Fehler erneut auftritt.
    
    HINWEIS: Der Fehler tritt auf, weil der Code auf das Bereichsobjekt von Abschnitt Eins des aktiven Dokuments verweist, ohne dass dem Aufruf die Objektvariable oWord vorangeht.
11. Halten Sie das Projekt an, und ändern Sie folgende Zeile:

     Set oRange = ActiveDocument.Sections(1).Range 					

    - zu -

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

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

Beim Erstellen eines Visual Basic-Projekts für das Automatisieren von Word ist Beispielcode für Objekte, Methoden und Eigenschaften des Word-Objektmodells in der Word-Hilfedatei verfügbar, wenn Ihr Projekt einen Verweis auf eine Microsoft Word 8.0- oder 9.0-Objektbibliothek enthält. Wenn sich der Cursor über einem Schlüsselwort in Ihrem Code befindet, können Sie durch Drücken der Taste F1 den verfügbaren Text der Hilfe anzeigen.

Der Beispielcode im Hilfethema ist der Code für Microsoft Word Visual Basic für Applikationen. Die Objektverweise, die für Ihren Visual Basic-Code erforderlich sind, werden nicht angezeigt. Sie müssen die entsprechenden Bezeichner hinzufügen.

Weitere Informationen finden Sie in den folgenden Artikeln der Microsoft Knowledge Base: Weitere Informationen zur Automatisierung von Office-Anwendungen finden Sie im folgenden Artikel der Microsoft Knowledge Base: