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

Der Makrokosmos ist eine umstrittene, aber logische Erklärung für die Beschaffenheit des Universums (bzw. mehrerern Universen). Mikrokosmos=gleicher Aufbau wie normaler Kosmos. (Sonnensystem = Atomkern, Elektronen, Protonen, Neutronen) Demnach wäre die Erde ein Elektron und die Sonne ein Atomkern, das Sonnensystem das Atom an sich, die Galaxie ein Stoff, viele Galaxien eine Stoffverbindung= Universum, viele Universen eine Zelle usw.

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