Mehrfaches Kopieren von Textstellen ersparen

Word bietet auch in der Version 97 immer noch keine Funktion zum Erstellen mehrfacher Markierungen in den Textdokumenten. Wollen Sie in einem neuen Dokument mehrere Abschnitte aus anderen Texten verwenden, dann müssen Sie die Passagen in der Regel einzeln aus einer Datei in die andere kopieren. Sie können diesen Vorgang zwar mit Hilfe der Sammel-Funktion etwas beschleunigen, aber auch diese Methode hat Schwachstellen: Markierte Abschnitte werden in den Quelldokumenten gelöscht, und im Zieldokument wird jedes Objekt aus der Sammlung als eigener Absatz eingefügt. Nachträgliche Korrekturen an allen beteiligten Dokumenten sind deshalb erforderlich.
Eine erhebliche Arbeitserleichterung bieten Ihnen die beiden abgebildeten Makros. Mit ihrer Hilfe können Sie bequem mit ein paar Mausklicks die wieder zu verwertenden Textpassagen kopieren und gesammelt in dem Zieldokument einfügen bei Bedarf sogar in einem gemeinsamen Absatz.
Zum Erzeugen der beiden Makros öffnen Sie mit [Alt] [F11] das »Microsoft Visual Basic«-Fenster. Darin markieren Sie im »Projekt«-Bereich die Zeile »Normal« und wählen aus dem Menü »Einfügen« den Befehl »Modul«.
In das neue Modul geben Sie den abgedruckten Makrocode ein. Beachten Sie bitte, daß die Variable »Zähler« von beiden Makros verwendet wird und deshalb außerhalb der beiden Makros also explizit auf der Modul-Ebene deklariert werden muß. Wird nun das Makro »MultiCopy« gestartet, so erzeugt es eine neue Kopie eines zuvor markierten Textobjektes und schreibt sie in die Zwischenablage. Gleich nach seinem ersten Aufruf plaziert es eine neue Symbolleiste am rechten Fensterrand von Word. In der Symbolleiste befindet sich eine Schaltfläche für den Start des Makros »Texteinf«. Nachdem alle gewünschten Textpassagen in die Zwischenablage kopiert wurden, müssen Sie nur noch den Cursor an der Stelle eines neuen oder bestehenden Dokuments plazieren, an der der gesammelte Text eingefügt werden soll. Dann starten Sie das Makro »Texteinf« mit einem Mausklick auf seine Schaltfläche. So werden die zuvor gesammelten Texte an der aktuellen Cursor-Position eingefügt. Nach dem Einfügen dieser Textteile in das Zieldokument erscheint eine Dialogbox, die Ihnen zwei Varianten anbietet: Entweder alle eingefügten Textobjekte werden zu einem Absatz zusammengefügt (Schaltfläche »Ja«), oder sie verbleiben in getrennten Absätzen.
Um mit den beiden Makros auch komfortabel zu arbeiten, sollten Sie das Makro »Multi-Copy« als Schaltfläche in einer Symbolleiste einblenden. Dazu öffnen Sie das Menü »Extras« und wählen dann den Eintrag »Anpassen«, um die gleichnamige Dialogbox einzublenden. Aktivieren Sie das Register »Befehle« und markieren Sie in der Liste »Kategorien« die Zeile »Makros«. Dann ziehen Sie mit der Maus den Eintrag »MultiCopy« aus dem Bereich »Befehle« in eine beliebige Symbolleiste. Gefällt Ihnen die Schaltfläche nicht? Dann klicken Sie in der Dialogbox »Anpassen« auf »Auswahl ändern«, um das Symbol oder die Beschriftung der Schaltfläche zu ändern. Wollen Sie die Schaltfläche für »TextEinf« nicht am rechten Fensterrand, sondern links, unten oder im oberen Bereich des Arbeitsfensters plazieren, ersetzen Sie die Option »mso-BarRight« in der Zeile »Set meineLeiste = ...« des Makros »MultiCopy« durch »msoBar-Left«, »msoBarBottom« oder »msoBarTop«.
Alexander Sarwanidi