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