{"id":1529,"date":"2013-08-28T14:59:57","date_gmt":"2013-08-28T12:59:57","guid":{"rendered":"http:\/\/www.ramses.de\/?p=1529"},"modified":"2013-08-28T15:00:28","modified_gmt":"2013-08-28T13:00:28","slug":"faq-word-mehrere-dokumente-mit-wenigen-mausklicks-ausdrucken","status":"publish","type":"post","link":"https:\/\/www.ramses.de\/?p=1529","title":{"rendered":"FAQ Word – Mehrere Dokumente mit wenigen Mausklicks ausdrucken"},"content":{"rendered":"

Problem <\/strong><\/h2>\n

Es gibt immer wieder Situationen, in denen Sie alle in einem Verzeichnis vorhandenen Word-Dokumente ausdrucken m\u00f6chten. Sei es, um beispielsweise Kopien aller Rechnungen an einen bestimmten Kunden oder mehrere, zu einer Dokumentation geh\u00f6rende Dokumente in einem Durchgang auszugeben.<\/p>\n

Sie k\u00f6nnen diese Aufgabe \u00fcber das Dialogfeld Datei-\u00d6ffnen oder den Explorer von Windows erledigen, aber wir m\u00f6chten Ihnen ein kleines Makro vorstellen, mit dem Sie in Zukunft wesentlich schneller zum Ziel kommen werden. Geben Sie dazu das folgende Listing in ein neues Modul der Dokumentvorlage NORMAL.DOT ein:<\/p>\n

L\u00f6sung <\/strong><\/h2>\n

Option Explicit
\nPrivate Type BROWSEINFO
\nhwndOwner As Long
\npidlRoot As Long
\nlpszDisplayName As String
\nlpszTitle As String
\nulFlags As Long
\nBFFCALLBACK As Long
\nLPARAM As Long
\niImage As Integer
\nEnd Type
\nPrivate Declare Function SHBrowseForFolder Lib _
\n„shell32.dll“ (FolderStruct As BROWSEINFO) As Long
\nPrivate Declare Function SHGetPathFromIDList _
\nLib „shell32.dll“ (ByVal LPCITEMIDLIST As Long, _
\nByVal lpStr As String) As Long
\nPrivate Const OFN_ALLOWMULTISELECT = &H200
\nPrivate Const OFN_CREATEPROMPT = &H2000
\nPrivate Const OFN_ENABLEHOOK = &H20
\nPrivate Const OFN_ENABLETEMPLATE = &H40
\nPrivate Const OFN_ENABLETEMPLATEHANDLE = &H80
\nPrivate Const OFN_EXPLORER = &H80000
\nPrivate Const OFN_EXTENSIONDIFFERENT = &H400
\nPrivate Const OFN_FILEMUSTEXIST = &H1000
\nPrivate Const OFN_HIDEREADONLY = &H4
\nPrivate Const OFN_LONGNAMES = &H200000
\nPrivate Const OFN_NOCHANGEDIR = &H8
\nPrivate Const OFN_NODEREFERENCELINKS = &H100000
\nPrivate Const OFN_NOLONGNAMES = &H40000
\nPrivate Const OFN_NONETWORKBUTTON = &H20000
\nPrivate Const OFN_NOREADONLYRETURN = &H8000
\nPrivate Const OFN_NOTESTFILECREATE = &H10000
\nPrivate Const OFN_NOVALIDATE = &H100
\nPrivate Const OFN_OVERWRITEPROMPT = &H2
\nPrivate Const OFN_PATHMUSTEXIST = &H800
\nPrivate Const OFN_READONLY = &H1
\nPrivate Const OFN_SHAREAWARE = &H4000
\nPrivate Const OFN_SHAREFALLTHROUGH = 2
\nPrivate Const OFN_SHARENOWARN = 1
\nPrivate Const OFN_SHAREWARN = 0
\nPrivate Const OFN_SHOWHELP = &H10
\nPrivate Const BIF_RETURNONLYFSDIRS = &H1
\nPrivate Const BIF_DONTGOBELOWDOMAIN = &H2
\nPrivate Const BIF_STATUSTEXT = &H4
\nPrivate Const BIF_RETURNFSANCESTORS = &H8
\nPrivate Const BIF_BROWSEFORCOMPUTER = &H1000
\nPrivate Const BIF_BROWSEFORPRINTER = &H2000
\nPrivate Const BIF_BROWSEINCLUDEFILES = &H4000<\/p>\n

Function AddSlash$(aPath$)
\nAddSlash = aPath
\nIf Trim$(aPath) = „“ Then Exit Function
\nIf Right$(aPath, 1) = „\\“ Then Exit Function
\nAddSlash = aPath + „\\“
\nEnd Function<\/p>\n

Sub procVerzeichnisDrucken()
\nDim strPath As String
\nDim strDOCName As String
\nDim dlg As Dialog
\nSet dlg = Dialogs(wdDialogToolsOptionsFileLocations)
\nWith dlg
\n.Path = „DOC-Path“
\n.Update
\nstrPath = .Setting
\nEnd With
\nstrPath = OpenFolder(„Verzeichnis drucken:“)
\nIf strPath = „“ Then Exit Sub
\nstrPath = AddSlash(strPath)
\nstrDOCName = Dir$(strPath & „*.doc“)
\nOn Error Resume Next
\nWhile strDOCName <> „“
\nDoEvents
\nErr = 0
\nApplication.PrintOut FileName:=strPath & strDOCName
\nIf Err <> 0 Then
\nBeep
\nIf MsgBox(„Das Dokument ‚“ & strDOCName & _
\n„‚ konnte nicht gedruckt werden.“, _
\nvbOKCancel + vbExclamation, _
\n„!!! Problem !!!“) = vbCancel Then
\nExit Sub
\nEnd If ‚Abbrechen?
\nEnd If ‚Err<> 0…
\nstrDOCName = Dir$()
\nWend
\nEnd Sub
\nFunction OpenFolder(strTitle) As String
\nDim BI As BROWSEINFO
\nDim R As Long
\nDim lpBuffer As String * 254
\nWith BI
\n.hwndOwner = 0
\n.lpszDisplayName = lpBuffer
\n.lpszTitle = strTitle
\n.ulFlags = 0
\n.BFFCALLBACK = 0
\n.LPARAM = 0
\nEnd With
\nR = SHBrowseForFolder(BI)
\nR = SHGetPathFromIDList(R, lpBuffer)
\nOpenFolder = Left$(lpBuffer, InStr(lpBuffer, _
\nChr(0)) – 1)
\nEnd Function<\/p>\n

Wenn Sie in Zukunft alle Dokumente aus einem bestimmten Verzeichnis drucken m\u00f6chten, dr\u00fccken Sie Alt+F8, um die Makroauswahl aufzurufen. Dort starten Sie das Makro per Doppelklick auf den Eintrag „procVerzeichnisDrucken“.<\/p>\n

Das Makro zeigt zun\u00e4chst eine Ordnerauswahl an, \u00fcber die Sie das Verzeichnis festlegen, dessen Inhalt ausgedruckt werden soll. Anschlie\u00dfend liest das Makro den Inhalt des Verzeichnisses aus und \u00fcbergibt jedes darin gefundene Dokument zum Ausdruck an Word. Kann eines der im gew\u00e4hlten Verzeichnis vorhandenen Dokumente nicht ausgedruckt werden, informiert Sie das Makro mit einer kleinen Meldung dar\u00fcber. Sie k\u00f6nnen dann auf Ok klicken, um das Dokument zu \u00fcberspringen oder die Ausf\u00fchrung des Makros mit Abbrechen beenden.<\/p>\n

Ben\u00f6tigen Sie diese Funktion h\u00e4ufiger, empfiehlt sich die Einrichtung eines eigenen Men\u00fceintrags wie zum Beispiel Datei-Drucken\/Verzeichnis oder Datei-Verzeichnisinhalt drucken. Gehen Sie dazu wie folgt vor:<\/p>\n

Klicken Sie mit der rechten Maustaste in die Men\u00fcleiste und w\u00e4hlen Sie das Kontextmen\u00fc Anpassen an.
\nWechseln Sie auf die Registerkarte „Befehle“.
\nMarkieren Sie in der Liste Kategorien den Eintrag „Makros“.
\nZiehen Sie den Eintrag des Makros „procVerzeichnisDrucken“ in das Men\u00fc Datei hinter den Eintrag Drucken.<\/p>\n

Klicken Sie mit der rechten Maustaste auf das neue Symbol und geben Sie im Eigenschaften-Men\u00fc als Name zum Beispiel Datei-Verzeichnisinhalt drucken ein.<\/p>\n

Klicken Sie im „Anpassen“-Dialog auf Schlie\u00dfen.
\nIn Zukunft k\u00f6nnen Sie das Makro bei Bedarf \u00fcber den wie oben erl\u00e4utert eingerichteten Men\u00fceintrag abrufen.<\/p>\n

F\u00fcr den interessierten Anwender hier noch einige Anmerkungen zur Funktionsweise des Makros:
\nSub AlleDOCsAusVerzeichnisDrucken()
\nstrPath = OpenFolder(„Verzeichnis drucken:“)
\nIf strPath = „“ Then Exit Sub<\/p>\n

Im ersten Schritt wird \u00fcber eine API-Funktion des Systems die Ordnerauswahl angezeigt. Wurde kein Ordner gew\u00e4hlt, erfolgt an dieser Stelle die Beendigung des Makros.
\nstrDOCName = Dir$(strPath & „*.doc“)
\nOn Error Resume Next
\nWhile strDOCName <> „“<\/p>\n

Mit Hilfe der Funktion „Dir$()“ werden in einer Schleife alle Dokumente im ausgew\u00e4hlten Verzeichnis ausgelesen. Liefert die Funktion eine leere Zeichenkette zur\u00fcck, sind keine weiteren Dokumente vorhanden und die Schleife wird verlassen.
\nDoEvents
\nErr = 0
\nApplication.PrintOut FileName:=strPath & strDOCName
\nIf Err <> 0 Then
\nBeep
\nIf MsgBox(„Das Dokument ‚“ & strDOCName & _
\n„‚ konnte nicht gedruckt werden.“, _
\nvbOKCancel + vbExclamation, _
\n„!!! Problem !!!“) = vbCancel Then
\nExit Sub
\nEnd If ‚Abbrechen?
\nEnd If ‚Err<> 0…<\/p>\n

\u00dcber den Aufruf von „Application.PrintOut“ schicken wir das Dokument an den Drucker. Kommt es dabei zu einem Fehler, wird eine entsprechende Meldung angezeigt. Ein Klick auf Ok ignoriert den Fehler und f\u00fchrt das Makro weiter aus, ein Klick auf Abbrechen f\u00fchrt an dieser Stelle zum Verlassen des Makros.<\/p>\n

strDOCName = Dir$()
\nWend
\nEnd Sub<\/p>\n

Mit der Anweisung „strDOCName = Dir$()“ wird dann die Suche nach weiteren Dokumenten veranlasst. Ist die R\u00fcckmeldung eine leere Zeichenkette, so ist die Schleife beendet und das Makro hat seine Aufgabe erf\u00fcllt.<\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

Problem Es gibt immer wieder Situationen, in denen Sie alle in einem Verzeichnis vorhandenen Word-Dokumente ausdrucken m\u00f6chten. Sei es, um beispielsweise Kopien aller Rechnungen an … Weiterlesen …<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[43,44],"tags":[71,68],"class_list":["post-1529","post","type-post","status-publish","format-standard","hentry","category-faq","category-word","tag-drucken","tag-word-2003"],"_links":{"self":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/1529","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1529"}],"version-history":[{"count":2,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/1529\/revisions"}],"predecessor-version":[{"id":1531,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/1529\/revisions\/1531"}],"wp:attachment":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1529"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1529"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1529"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}