Laufzeitfehler 4248, 4605 oder 5941 beim Verwenden von VBA zum Ändern von Dokumenteigenschaften


Dieser Artikel ist eine Übersetzung des folgenden englischsprachigen Artikels der Microsoft Knowledge Base:
813983 Run-Time Error 4248, 4605, or 5941 When You Try to Use VBA to Change Document Properties

Problembeschreibung


Wenn Sie versuchen die Eigenschaften eines Dokuments mithilfe von Microsoft Visual Basic für Applikationen (VBA) zu ändern, wird möglicherweise eine der folgenden Fehlermeldungen angezeigt:
Laufzeitfehler '4248':
Dieser Befehl ist nicht verfügbar, weil kein Dokument geöffnet ist.


-oder-


Laufzeitfehler '4605':
Diese Methode oder Eigenschaft ist nicht verfügbar, weil kein Dokumentfenster aktiv ist.
-oder-
Laufzeitfehler '5941':
Das angeforderte Element ist nicht in der Sammlung vorhanden.

Ursache


Dieses Problem kann auftreten, wenn Sie kein Dokument geöffnet haben, oder wenn das angegebene Dokument nicht geöffnet ist. Word kann nur die Eigenschaften eines geöffneten (oder sichtbaren) Dokuments ändern.
Hinweis: Diese Fehlermeldungen können auch auftreten, wenn Sie das Dokument öffnen, wobei die Eigenschaft Sichtbar auf
Falsch gesetzt ist.

Abhilfe


Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität sowie ohne Anspruch auf Support zur Verfügung. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Die Spezialisten vom Microsoft Software Service können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind. Wenn Sie über begrenzte Programmiererfahrungen verfügen, wenden Sie sich an einen von Microsoft zertifizierten Partner. Weitere Informationen über von Microsoft zertifizierte Partner finden Sie auf der folgenden Seite im World Wide Web: Weitere Informationen zur Kontaktaufnahme mit Microsoft und den verfügbaren Supportoptionen finden Sie auf folgender Website von Microsoft: Weitere Informationen über die Verwendung des Beispielcodes aus diesem Artikel finden Sie in folgendem Artikel der Microsoft Knowledge Base:
290140 OFFXP: How to Run Sample Code from Knowledge Base Articles
Die folgenden Visual Basic für Applikationen-Makros zeigen, wie Sie den Wert des Feldes Titel im Dialogfeld
Eigenschaften ändern können. Das folgende Beispiel enthält Code zum Abfangen des Fehlers, wenn keine Dokumente geöffnet sind, und zum Anzeigen einer Meldung:
Sub ChangeDocProperties()
On Error GoTo ErrHandler
ActiveDocument.BuiltInDocumentProperties("Title") = "My Title"
Exit Sub
ErrHandler:
If Err <> 0 Then
'' Display an error message.
'
MsgBox Err.Description
'' Clear the error.
'
Err.Clear
Resume Next
End If
End Sub
Das folgende Beispielmakro enthält Code, der Folgendes ausführt:
  • Abfangen des Fehlers, wenn keine Dokumente geöffnet sind.

    -und-
  • Erstellen eines neuen Dokuments während des Abfangen des Fehlers.

    -und-
  • Wiederaufnehmen der Ausführung an der Zeile, die den Fehler verursacht hat.
Sub ChangeDocProperties()
On Error GoTo ErrHandler
ActiveDocument.BuiltInDocumentProperties("Title") = "My Title"
Exit Sub
ErrHandler:
If Err <> 0 Then
'' Add a document.
'
Documents.Add
'' Clear the error.
'
Err.Clear
'
' Run the code that caused the error.
'
Resume
End If
End Sub

Informationsquellen


Weitere Informationen darüber, wie Sie Hilfe zu Visual Basic erhalten können, finden Sie in folgendem Artikel der Microsoft Knowledge Base:
305326 OFFXP: Programming Resources for Visual Basic for Applications
Bitte beachten Sie: Bei diesem Artikel handelt es sich um eine Übersetzung aus dem Englischen. Es ist möglich, dass nachträgliche Änderungen bzw. Ergänzungen im englischen Originalartikel in dieser Übersetzung nicht berücksichtigt sind. Die in diesem Artikel enthaltenen Informationen basieren auf der/den englischsprachigen Produktversion(en). Die Richtigkeit dieser Informationen in Zusammenhang mit anderssprachigen Produktversionen wurde im Rahmen dieser Übersetzung nicht getestet. Microsoft stellt diese Informationen ohne Gewähr für Richtigkeit bzw. Funktionalität zur Verfügung und übernimmt auch keine Gewährleistung bezüglich der Vollständigkeit oder Richtigkeit der Übersetzung.