Drucken von über 100 Word-Dokumenten

Computer: Software & Programmierung Office Software
1

Hallo!

Ich hätte über 100 Word-Dokumente zu drucken, möchte sie aber nicht jedesmal über Word aufrufen müssen (ist ja mühselig). Ich habe mit Drag und Drop alle Dokumente im Explorer markiert und sie auf das Druckersymbol verschoben; der Erfolg war, dass der PC versuchte „Word“ 100 mal zu starten.

Gibt es keine andere, leichtere Möglichkeit.

Danke für Eure Hilfe.

2

Schreib dir halt ein kleines Word-Makro, das die Dokumente der Reihe nach öffnet und druckt:

 Dim FName As String
 FName = Dir("C:\woauchimmer\*.doc")
 Do While FName ""
 Documents.Open FileName:=FName, ConfirmConversions:=False, ReadOnly:= \_
 True, AddToRecentFiles:=False, Format:=wdOpenFormatAuto
 Application.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, \_
 Copies:=1, Pages:="", PageType:=wdPrintAllPages, Collate:=True, Background:=False
 FName = Dir()
 ActiveDocument.Close SaveChanges:=False
 Loop

Gruß aus dem Norden
Reinhard Kraasch (http://www.kraasch.de - Access/VB(A) Tipps & Tricks)