Kopien mit EmpfΣngerkennzeichnung

In unserer Firma ersetzen wir nach und nach alle Nadeldrucker durch Laserdrucker. Frⁿher konnten wir problemlos ein Dokument mit vier DurchschlΣgen drucken. Mit dem Laserdrucker mⁿssen wir jetzt viermal das gleiche Dokument ausgeben. Da die DurchschlΣge farbig waren, lie▀en sich die EmpfΣnger immer einfach bestimmen: grⁿn fⁿr Einkauf, gelb fⁿr Wareneingang etc. Gibt es unter Winwordá95 eine M÷glichkeit, in einem Rutsch vier Exemplare zu drucken, wobei auf jedem Dokument der EmpfΣnger vermerkt ist?

Ja, es gibt eine L÷sung dieses Problems. Sie mag zwar etwas langsam sein, aber sie funktioniert. Die Idee besteht darin, das Dokument fⁿr jeden EmpfΣnger einzeln zu drucken und zwischen den Ausdrucken den Vermerk ⁿber den EmpfΣnger zu verΣndern. Deshalb ist die L÷sung auch relativ langsam: Der Druckertreiber mu▀ nicht ein Dokument mit vier Exemplaren, sondern nach jeder ─nderung ein neues Dokument verarbeiten. Um diesen Vorgang zu automatisieren, ben÷tigen Sie eine Textmarke und ein kleines Makro, das beim Drucken an der Stelle der Textmarke den jeweiligen EmpfΣnger eintrΣgt. ╓ffnen Sie zunΣchst die betreffende Dokumentvorlage. Mit Hilfe des Befehls Einfⁿgen û Textmarke fⁿgen Sie dort eine Textmarke ein, wo spΣter der Vermerk ⁿber den EmpfΣnger stehen soll. Anschlie▀end legen Sie mit dem Befehl Extras û Makro ein Makro an. Geben Sie im Editor folgende Anweisungen ein: 

Sub MAIN
BearbeitenGeheZu .Ziel = ôEmpfΣngerô
 æErste Kopie
Einfⁿgen ôKopie Einkaufô
DateiDrucken .Exemplare = ô1ô, .KopienSortieren = 1, 
WortLinks 2, 1
 æZweite Kopie
Einfⁿgen ôKopie Warenlagerô
DateiDrucken .Exemplare = ô1ô, .KopienSortieren = 1, 
WortLinks 2, 1
 æ[...] Kopie
BearbeitenL÷schen
End Sub
Die erste Zeile verschiebt die Einfⁿgemarke an die Stelle mit der Textmarke, im Beispiel zur Textmarke EmpfΣnger. Die Einfⁿgen-Anweisung fⁿgt dann den Namen eines EmpfΣngers ein, und die dritte Anweisung druckt das Dokument. Um weitere EmpfΣnger einfⁿgen zu k÷nnen, markiert die vierte Anweisung den soeben eingefⁿgten EmpfΣngernamen. Es liegt an Ihnen, die Routine nun fⁿr einen weiteren EmpfΣnger zu wiederholen oder aber den letzten EmpfΣnger mit Hilfe der Anweisung Bearbeiten-L÷schen wieder aus dem Dokument zu entfernen. Beachten Sie, da▀ die Anweisung WortLinks als ersten Parameter die jeweilige Anzahl eingefⁿgter W÷rter enthalten mu▀. Im Beispiel ist dies eine 2 fⁿr Kopie und den jeweiligen EmpfΣnger. Wenn Sie beispielsweise nur den EmpfΣnger eintragen wollen, mⁿssen Sie eine 1 als Parameter angeben. Nun mⁿssen Sie nur noch dafⁿr sorgen, da▀ Ihre Anwender das Makro anstelle des normalen Druckbefehls starten. Das k÷nnen Sie ihnen einfach sagen, oder Sie implementieren es entsprechend. Dazu fⁿhren Sie in Ihrer ge÷ffneten Dokumentvorlage die Anweisung Extras û Anpassen aus. Mit dem folgenden Dialog gibt Winword Ihnen die M÷glichkeit, das Layout der Menⁿs und Symbolleisten anzupassen. Wechseln Sie auf die Registerkarte Menⁿs. Markieren Sie in der linken Auswahlliste den Eintrag Datei und suchen in der rechten Auswahlliste den Eintrag DateiDrucken, den Sie mit Hilfe des Buttons Entfernen aus dem Menⁿ l÷schen. Anschlie▀end markieren Sie in der linken Auswahlliste den Eintrag Makros und suchen in der rechten Liste nach Ihrem neuen Makro. Nun wΣhlen Sie im Kombinationsfeld Menⁿ Σndern den Eintrag Datei und im darunterliegenden Kombinationsfeld &Drucken. Dies geben Sie auch als Position im Menⁿ an. Nun fⁿhrt Winword anstelle des typischen Druckbefehls Ihr Makro aus, wenn der Anwender die Anweisung Drucken aus dem Menⁿ wΣhlt. Achten Sie darauf, die richtige Dokumentvorlage im Kombinationsfeld Speichern in auszuwΣhlen!