Word aus Excel heraus beenden
Schritt-für-Schritt-Anleitung
Um Word aus Excel heraus zu beenden und sicherzustellen, dass Dokumente ordnungsgemäß gespeichert werden, kannst du das folgende VBA-Makro verwenden. Es ist wichtig, dass du die "Microsoft Word X.0 Object-Library" aktiviert hast. So gehst du vor:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Extras und dann auf Verweise.
- Setze ein Häkchen bei der "Microsoft Word X.0 Object-Library".
- Füge das folgende Makro in ein Modul ein:
Sub Test()
Dim objWord As Word.Application
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err.Number = 429 Then ' keine Word-Instanz vorhanden
Err.Clear
Else
On Error GoTo 0
If objWord.Documents.Count = 0 Then
objWord.Quit
Else
MsgBox "Bitte Datei zuerst speichern!", vbInformation, "Hinweis"
objWord.Activate
objWord.Dialogs(xlDialogSaveAs).Show "C:\"
End If
End If
End Sub
- Schließe den VBA-Editor und führe das Makro aus. Dies wird Word beenden, wenn kein Dokument geöffnet ist, oder es wird eine Meldung angezeigt, um das Dokument zu speichern.
Häufige Fehler und Lösungen
-
Fehler: Die MSGBox erscheint immer, auch wenn Word nicht geöffnet ist.
- Lösung: Stelle sicher, dass die richtige Word-Library aktiviert ist. Überprüfe die
GetObject-Befehle, um sicherzustellen, dass sie korrekt sind.
-
Fehler: Word schließt sich nicht nach dem Speichern.
- Lösung: Nach dem
Show-Befehl für den Speichern-Dialog kannst du objWord.Quit hinzufügen, um Word zu schließen, sofern das Dokument gespeichert wurde.
Alternative Methoden
Falls das obige Makro nicht deinen Anforderungen entspricht oder nicht funktioniert, kannst du auch folgenden Ansatz ausprobieren:
Sub WordBeenden()
Dim objWord As Object
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Not objWord Is Nothing Then
If objWord.Documents.Count > 0 Then
MsgBox "Bitte die Word-Datei zuerst speichern.", vbInformation
objWord.Activate
Application.SendKeys "%(fs)" ' Alt + F + S
Else
objWord.Quit
End If
End If
On Error GoTo 0
End Sub
Diese Methode nutzt die SendKeys-Funktion, um den Speichern-Dialog zu öffnen.
Praktische Beispiele
Hier sind einige praktische Anwendungen des Makros:
- Aufgabenliste in Word erstellen: Verwende das Makro, um sicherzustellen, dass alle Änderungen an einer Aufgabenliste in Word gespeichert werden, bevor du das Programm schließt.
- Dokumente ohne Speichern schließen: Wenn du häufig mit Word-Dokumenten arbeitest, die nicht gespeichert werden müssen, kann dieses Makro helfen, Word automatisch zu schließen.
Tipps für Profis
- Nutze die
On Error-Anweisung, um Fehler beim Zugriff auf die Word-Anwendung besser zu handhaben.
- Experimentiere mit weiteren Dialogen, wie
objWord.Dialogs(xlDialogOpen), um Dokumente aus Excel zu öffnen.
- Achte darauf, dass du stets die aktuellste Version der Word-Library verwendest, um Kompatibilitätsprobleme zu vermeiden.
FAQ: Häufige Fragen
1. Kann ich Word aus Excel beenden, ohne das Dokument zu speichern?
Ja, du kannst Word schließen, wenn kein Dokument geöffnet ist, oder das Dokument schließen ohne speichern, indem du objWord.Quit verwendest.
2. Was tun, wenn der Speichern-Dialog nicht erscheint?
Überprüfe, ob die Word-Library korrekt referenziert ist. Manchmal kann es auch helfen, den SendKeys-Befehl zu verwenden, um den Speichern-Dialog manuell zu öffnen.