SoftMaker.de

Vor lägerer Zeit hatte ich ein Skript angenmahnt, das einen ganzen Ordner ausdrucken könne. Inzwischen ist ja da auch etwas geschehen, ich habe mir aber doch selbst etwas gebastelt, und zwar das folgende Skriptlein:

Set tm = CreateObject("TextMaker.Application")
tm.Application.Visible = True
Set sl = CreateObject("Shell.Application")
Set ordner = sl.BrowseForFolder(0, "Bitte den auszudruckenden Ordner auswählen.", 0, 0)
If not ordner is Nothing then
ordnername = ordner.self.Path
Else
MsgBox "Kein Ordner gefunden!"
End
End If
Set fs = CreateObject("Scripting.FileSystemObject")
Set dr = fs.GetFolder(ordnername)
For each dateiname in dr.files
tm.Documents.Open dateiname
tm.ActiveDocument.PrintOut
tm.ActiveDocument.Close
next
Set tm = Nothing
End


Das Skriptlein tut eigentlich nur zwei Dinge:
1. ruft es eine Dateiauswahlbox auf, in der man einen Ordner auswählen kann.
2. Danach ruft es die Dateien in diesem Ordner der Reihe nach auf und lässt sie mit TM drucken.
Da bei mir immer wieder Ordner mit auszudruckenden Dateien in einer bestimmten Reihenfolge anfallen, tut es dieses Skript; die Dateinamen folgen bei mir dem Muster "Bezeichner_Jahr_Monat_Tag" und kommen so automatisch in der richtigen Reihenfolge heraus. Vorbedingung ist, dass man zuerst in TM den richtigen Drucker auswählt. (Liesse sich vielleicht noch einbauen, dass der Drucker gewählt werden kann.)

Mit SM-Bordmitteln kann man, wenn ich es recht sehe, allerdings keine Datei-Auswahlbox erzeugen, hingegen kann Windows dies, und zwar das File-System. Die nötigen Referenz-Informationen dazu musste ich mir allerdings dann in einem Referenzwerk zum Windows-Skripting beschaffen, was wiederum beweist, dass man BM nicht isoliert betrachten sollte. Ohne Kenntnis des OLE-Systems und dergleichen mehr lässt sich nämlich herzlich wenig anfangen.

Naja
Ich glaube ja, dass Benutzer Dewes schon ein paar Gegenbeweise dafür geliefert hat aber trotzdem bin ich ebenfalls der Meinung, dass OLE-Kenntnisse alleine schon sehr viele Möglichkeiten eröffnen, aus diesem oder anderen Offices mehr herauszuholen.

Das Beispiel oben ist auch klasse.