Hi otto,
Tipp: MAKRO macht die Arbeit
Vorgang:
- MS Word mit leerem Dokument starten
- Menü / Extras / Makro / Aufzeichnen / <Name f.d. Makro vergeben> / OK
- via Menü oder Schaltfläche das 1. Dokument öffnen
- via Menü oder Schaltfläche das 1. Dokument drucken
- rechts oben via "X" das aktuelle Dukoment schliessen
- MakroAufzeichnung BEENDEN
- Menü / Extras / Makro / Makros... / Makro auswählen / Bearbeiten
------ mein TestMakro <druck100> sieht SO aus ------
Sub druck100()
'
' druck100 Makro
' Makro aufgezeichnet am 17.05.2004 von Erwin Billmaier
'
ChangeFileOpenDirectory "E:\Erwin\DOC\"
Documents.Open FileName:="""Arbeit mit Dateien in VB.doc""", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto
ActiveDocument.PrintOut
ActiveWindow.Close
End Sub
-----------------------------------------------------
- dieser "SourceCode" kann jetzt im BearbeitungsModus leicht händisch vervielfältigt werden (die 3 Kommentarzeilen, die mit dem HochKomma musste nicht mitduplizieren)
- du musst nur bei deinen 99 Kopien unter <FileName= .doc> den entspr. Namen einsetzen
- wenn fertig, nicht vergessen SPEICHERN
- Menü / Extras / Makro / Makros... / Makro auswählen / Ausführen
meine Rest-Senf-Zugabe:
- ich würde das mal für die Dokumente 1- 5 machen und schauen wie der DruckerSpool so funzt und ob ich mit dem PapierNachlegen zurechtkomme 8)
- das Makro kann man jederzeit um/ausbauen
