Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Makro wird nach Fokus-Verlust abgebrochen
zurück: Textmarken in anderem Dokument füllen weiter: Dokumenteigenschaften: Datum Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
thomas12
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Aug 2009, 17:35
Rufname:

Makro wird nach Fokus-Verlust abgebrochen - Makro wird nach Fokus-Verlust abgebrochen

Nach oben
       Version: Office 2003

Ich möchte mit einem Makro Dokumente in unser Dokumentenmanagementsystem automatisch archivieren. Die Archivierung erfolgt über eine Druckerschnittstelle. Sobald ich den Drucker jedoch ansteuere (was problemlos erfolgt), übernimmt die DMS-Software kurzzeitig den Fokus und archiviert das Dokument.

Leider wird bei diese Fokusverlust von Word mein Makro nicht weiter abgearbeitet. Ich möchte, dass Word die geöffneten Dokumente (Diese werden in dem Makro vorher geöffnet und teilweise noch bearbeitet.) nach der Archivierung automatisch wieder schließt. Wenn ich den Abschnitt Speichern im DMS auskommentiere, passiert dies auch. Wie kann ich dieses Problem lösen?

Code:

'Speichern im DMS
  On Error GoTo FehlerHandler
  Dim Dr As String
  Dr = ActivePrinter
  ActivePrinter = "DocJuicer Printer"
  ActiveDocument.PrintOut
  ActivePrinter = Dr
  Exit Sub
FehlerHandler:
  ActivePrinter = Dr
   
'Alle Dokumente schließen
    Dim objWord As Word.Application
    Set objWord = CreateObject("Word.Application")
        objWord.Activate
    Windows("xxx.doc").Activate
    ActiveWindow.Close
    Windows("yyy.doc").Activate
    ActiveWindow.Close
    Application.WindowState = wdWindowStateMaximize
    Word.Application.Quit
End Sub
Gast



Verfasst am:
05. Aug 2009, 11:34
Rufname:

AW: Makro wird nach Fokus-Verlust abgebrochen - AW: Makro wird nach Fokus-Verlust abgebrochen

Nach oben
       Version: Office 2003

Hallo Thomas12,
nachdem den ursprünglichen Drucker wieder aktiviert hast, endet dein Makro mit Exit Sub. Der Teil, der das schließen der Dokumente bewirken soll, würde nur im Fehlerfall ausgeführt werden. Setze
Exit Sub
FehlerHandler:
ActivePrinter = Dr
unmittelbar vor das End Sub.
Gruß
Holger
thomas12
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Aug 2009, 12:46
Rufname:


AW: Makro wird nach Fokus-Verlust abgebrochen - AW: Makro wird nach Fokus-Verlust abgebrochen

Nach oben
       Version: Office 2003

Danke für den Tipp. Manchmal sieht man den Wald vor lauter Bäumen nicht.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Viele Dokumente mit einem mal verändern?Hift nur ein Makro?? 15 amagosa 634 02. Sep 2011, 13:25
amagosa Viele Dokumente mit einem mal verändern?Hift nur ein Makro??
Keine neuen Beiträge Word Formate: Word Formular: Textfeld editieren und Makro für OptionButton 6 Cryz 3893 27. Okt 2010, 14:03
KeepCoolMan Word Formular: Textfeld editieren und Makro für OptionButton
Keine neuen Beiträge Word Serienbriefe: DRINGEND! Makro Dateinamenvorgabe 0 Marina68 731 16. Apr 2007, 15:10
Marina68 DRINGEND! Makro Dateinamenvorgabe
Keine neuen Beiträge Word Formate: Word Formatvorlagen per Makro ändern 4 NightFog 6551 29. Jun 2005, 19:01
NightFog Word Formatvorlagen per Makro ändern
Keine neuen Beiträge Word VBA Programmierung (Makros): Suchen, Ersetzen per Makro 2 Python 1305 21. Apr 2005, 13:04
Python Suchen, Ersetzen per Makro
Keine neuen Beiträge Word VBA Programmierung (Makros): Warum funzt Selection.paste in diesem Makro nicht? 2 Fränk 1421 23. Feb 2005, 16:09
Gast Warum funzt Selection.paste in diesem Makro nicht?
Keine neuen Beiträge Word VBA Programmierung (Makros): Makro aktivieren bei Fehlermeldung deaktiviert 2 Kurfürst zu Trier 3140 11. Feb 2005, 09:25
ZeroCool Makro aktivieren bei Fehlermeldung deaktiviert
Keine neuen Beiträge Word VBA Programmierung (Makros): Office 2000 - Makro - Multiple Choice - Textfeld einfügen 3 MCYo1 3759 03. Feb 2005, 13:02
MCYo1 Office 2000 - Makro - Multiple Choice - Textfeld einfügen
Keine neuen Beiträge Word VBA Programmierung (Makros): Makro starten wenn im Speichername bestimmter Wert steht? 1 searcher1900 820 12. Jan 2005, 19:32
searcher1900 Makro starten wenn im Speichername bestimmter Wert steht?
Keine neuen Beiträge Word VBA Programmierung (Makros): Schriftart- /größe bei Seitenzahl in Makro ändern 1 medikuss 1839 10. Jan 2005, 00:50
Amethyst Schriftart- /größe bei Seitenzahl in Makro ändern
Keine neuen Beiträge Word VBA Programmierung (Makros): Makro für UserInitials 1 Gast 1431 20. Dez 2004, 09:07
lothi Makro für UserInitials
Keine neuen Beiträge Word VBA Programmierung (Makros): Makro Dateiname u. Pfad auf letzter Seite 2 unifeeder 1537 26. Nov 2004, 12:43
unifeeder Makro Dateiname u. Pfad auf letzter Seite
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen