Makrokosmos

Hier ein schönes Word-Normzeilenmakro, das Eure geschriebenen Zeilen normgerecht (und korrekt, im Gegensatz zu Word!) zählt:

WordBasic.StartOfDocument
While WordBasic.CharRight(1) = (-1): A = A + 1: Wend
While WordBasic.ParaDown(1) = -1: A = A - 1: Wend
WordBasic.MsgBox Str(A) + » Anschläge im überprüften Text.«
WordBasic.MsgBox »Das Dokument enthält« + Str(WordBasic.Int(A / 55)) + » DIN-Normzeilen.«

Anleitung:

I. Makro »Normzeile« in WinWord (ab '97) einbinden
1. Text in Zwischenablage kopieren
2. In Word Extras - Makro - Makros wählen, beliebigen Namen eingeben und »Erstellen«
3. Text an der Cursorposition (VOR der Zeile »End Sub«) einfügen
4. Beide geöffnete Makrofenster schließen
5. Beim Beenden von Word NORMAL.DOT speichern!
Weiter mit II. und/oder III.

II. Icon für Makro erstellen (optional)
1. Extras- Anpassen - Befehle - Kategorie »Makros« wählen
2. Namen des Makros suchen
3. Makro mit gedrückter linker Maustaste auf beliebige Icon-leiste ziehen
4. Evtl. mit rechter Maustaste auf neues Icon klicken, Namen ändern und/oder »Schaltflächensymbol ändern« wählen, dann Icon auswählen

III. Shortcut für Makro erstellen (optional)
1. Extras - Anpassen wählen, Tastatur... anklicken, Schritte II.1. und 2. wiederholen, dann Shortcut eingeben und zuordnen

makrokosmos is die umgebung vom mikrokosmos, aber wenn du die größenbezüge immer weiter in eine richtung veränderst (immer größer oder immer kleiner), wirst du feststellen, daß ganz groß gleich ganz klein ist. sprich, wenn du immer weiter in den makrokosmos vordringst, landest du irgendwann wieder im mikrokosmos.
ist so ähnlich wie beim fischer und seiner fru - die saßen am schluß auch wieder im kochtopf...

Ein Beispiel: Wenn die Simpsons der Mikrokosmos sind, ist Springfield der Makro...