Wie aus Deutschen Franzosen werden – Makros
Diese »französischen« Anführungszeichen finden Sie richtig im Duden, allerdings erst bei den »Richtlinien für den Schriftsatz«. (Dort sehen Sie übrigens, daß Deutsche und Österreicher sie andersherum als alle anderen setzen ...)
Wo sie meine »Franzosen« nicht finden, ist auf der Tastatur. Selbst Microsoft kennt sie nicht, wenn es darum geht, "gerade" Anführungen automatisch in ›typographische‹ umzuformen. Diesen Krampf, der besonders bei falsch verstand’nen Auslassungszeichen Ärger macht, sollten Sie ausschalten: in Word bei Extras, Autokorrektur, Autoformat. (Wer einen ›Patch‹ für Word hat, statt deutscher französische zu generieren, bitte melden!)
Als erstes sollte man sich also die französischen Anführungszeichen unter die Tasten bringen. Mein Freund und Korrektor Emmelmann hat sie sich mit Extras, Autokorrektur, Autokorrektur, während der Eingabe ersetzen, unter > und < gelegt (die Originalzeichen bekommt man ausnahmsweise durch die Rücktaste danach), ich habe sie auf Alt2 und Alt3, ganz in der Nähe des "geraden" Anführungszeichens. Neuerdings nutze ich einen modifizierten Tastaturtreiber, siehe meinen »Tip Tastaturtreiber für Typographen«, und da liegen sie noch wo anders. Den (richtig gebogenen) Apostroph (Alt0146 ’ ) empfehle ich mit einem Makro auf Alt# zu legen.
Wie Sie ein Makro machen? Sie bauen sich ein »Tastenmakro«. Und zwar so: Extras antippen, Makros, Aufzeichnen. Dann geben Sie dem Ding einen Namen, z.B. FranzAuf. (Unter Makro speichern sollte Normal.dot eingetragen sein, damit Sie's später nicht wieder verlieren.) Dann drücken Sie gleich dort auf die kleine Tastatur, um das entstehende Makro Ihren Tasten zuzuordnen. Ein neues Bild kommt, und sie brauchen nur die gewünschte Tastenkombination anzutippen, etwa Alt2 (Alt-Taste festhalten, 2 zusätzlich drücken). Jetzt wird Ihnen gezeigt, was Sie sich dabei eventuell vermasseln, das heißt, welchem Trick die gewünschte Tastenkombination bis dato zugeordnet war. Kein Problem! Sie ticken auf »zuordnen« und »schließen«. Schon geht’s los mit der »Aufzeichnung«.
Bei einer Makro-Aufzeichnung - bei der sie dem Rechner vormachen, was er später selbst automatisch tun soll - empfiehlt sich Sorgfalt. Passieren kann nichts, außer, daß man das Makro neu machen muß. Den aufzuzeichnenden Vorgang können Sie ja vorher einmal ›trocken‹, ohne laufenden ›Recorder‹, üben. Während der Aufzeichnung sehen Sie dieses kleine Kassettensymbol. Für die französischen Gänsefüße gehen Sie jetzt in Einfügen Sonderzeichen, suchen sich dort das » oder das « aus, bestätigen mit Einfügen und dann in den Sonderzeichen Abbrechen. Jetzt wird es Zeit, auch die Aufzeichnung des Makros zu beenden. Sie tun das entweder mit einem Klick auf die quadratische Recorder-Stoptaste oder mit Extras, Makro, Makro beenden. Das Ganze ist einfacher, als Sie denken.
Damit Sie nicht immer den Umstand mit den Sonderzeichen haben: Statt diese mühsam in der Tabelle zu suchen, geben Sie stattdessen gleich deren Kode ein: Sie drücken die Alt-Taste und dann den Kode rechts in der Nummerntastatur (Das Num-Lichtlein sollte leuchten. Notebooks müssen auf Num gestellt werden.)
Hier die Kodes für Ihre »Franzosen« (mehr siehe Tip Sonderzeichen):
» Alt175
« Alt174
› Alt0130
‹ Alt0145
Haben Sie die Anführungszeichen unter Ihren Tasten, können Sie schon mal »schön« schreiben. Vielleicht gehen Sie gleich nach der Aufzeichnung aus Word ganz heraus, damit Ihre neuen Makros auch sicher in der Normal.dot gespeichert werden. Dann Word wieder starten, die Tasten ausprobieren.
Darf ich Ihnen noch ein Super-Duper-Makro empfehlen, das in alten Texten Gänsefüße ersetzt? Statt es Ihnen hier zum Herunterladen zu geben – schon wegen der allgemeinen Makrovirenangst – in Kürze nur das, was sie diesem Makro beibringen sollten. (Das Makro wird als Makro aufgerufen, eine Tastenkombination dafür wäre Unsinn. Die volle Version in alter Schreibweise hänge ich Ihnen unten an. Profis können sich das dann über die Zwischenkopie mit Cut-and-Paste in ihr Makro nehmen.)
Was also ist zu tun?
1. Alle geraden Anführungsstriche [" oder
CHR(34)] hinter Absatzmarken [^a] und eventuell Sonstigem
[^t, ^n, ^z] und vor allem hinter Leerstellen und Klammern auf
[(] im ganzen Text in französische Anführungszeichen auf [»]
umwandeln.
2. Alle restlichen " in «.
Damit haben Sie schon fast alles sehr schön umgesetzt. Die
seltenen ›halben‹ Anführungen sollten Sie von Hand
nachführen.
Es schadet nicht und macht das Makro universeller, wenn Sie noch
die eindeutigen "deutschen" Anführungen wandeln, die
Kodes stehen wieder in meinem Tip
Sonderzeichen. (Wenn sie hier nicht deutsch stehen, dann war
mein Word schuld, mit dem ich diese HTML-Seite
mache. Und: Das Makro läßt sich nicht für englische
Texte nutzen, die englische ›Auf-Gans‹ ist unsere
›Zu-Gans‹.)
Weitere Verfeinerungen der Hausfrau: ›leer Bindestrich
Bindestrich leer‹ in ›leer Gedankenstrich leer‹
wandeln, der Gedankenstrich ist Alt0150. Eventuell ›leer
:‹ in ›:‹, weil viele vor dem Doppelpunkt
fälschlich ein Leerzeichen tippen.
Wollen Sie aus alten Texten Absatzmarken an allen Zeilenenden verschwinden lassen, dann wandeln Sie erst einmal alle zwei Absatzmarken [^a^a] hintereinander in X1Y2Z3 oder so etwas um, dann die einzelnen Ansatzmarken in nichts oder eine Leerstelle (vorher ansehen, ob an den Zeilenenden schon Leerstellen stehen!), und schließlich wieder X1Y2Z3 in zwei Absatzmarken, damit Ihnen wirkliche Absätze nicht verlorengehen.
Viel Spaß mit Makros!
Hier zum Tip Schriftsatz
Zum Tip Sonderzeichen
Zum sagenhaften Tastaturtreiber
Zur Wörterliste
Zurück zur Sprachtip-Übersicht
Zurück in die Heimat (home)
Fritz@Joern.De - www.Joern.De - ©Fritz Jörn MIM
Sehen Sie sich in Word die Hilfe zum Ersetzen von Zeichen an,
Stichwort »Beispiele für Sonderzeichen und Dokumentelemente,
die gesucht und ersetzt werden können.« Hier ein Auszug:
Sie können die meisten Elemente auf einfache Weise in die Felder
›Suchen nach‹ und ›Ersetzen durch‹ eingeben.
Wenn die Schaltfläche ›Sonstiges‹ nicht angezeigt
wird, klicken Sie auf Erweitern. Klicken Sie dann auf Sonstiges
und anschließend auf das gewünschte Element.
Absatzmarke ^a, Tabstopzeichen ^t, Kommentarzeichen ^5, ANSI-
oder ASCII-Zeichen ^0nnn, wobei nnn der Zeichencode ist (bei
ASCII ohne führende Null). Beliebiges Zeichen ^?, beliebige
Ziffer ^#, beliebiger Buchstabe ^$, Caret-Zeichen ^^ (also das
^-Zeichen selbst). Inhalt der Zwischenablage ^c, Ersetzen durch
Inhalt des Feldes Suchen nach ^&, Ersetzen durch
Endnotenzeichen ^e, Suchen nach Feld ^d, Suchen nach
Fußnotenzeichen ^f, Suchen nach Grafik ^r, Suchen nach Wechsel
Sonderzeichen oder Element Eingabe Im Feld Spaltenwechselmarke
^n, Suchen nach oder Ersetzen durch manuelle Zeilenwechselmarke
^z, Seitenwechselmarke ^m, Abschnittswechselmarke ^b,
Gedankenstrich ( – ) ^=, geschütztes Leerzeichen
^g, geschützter Trennstrich ^_, bedingter Trennstrich ^-,
Leerfläche ^l. Wenn Sie den Code für den bedingten Trennstrich
nicht angeben, sucht Word nach allen Vorkommen von
übereinstimmendem Text, einschließlich Text mit bedingten
Trennstrichen. Wird der Code mit eingegeben, sucht Word nur nach
Text mit bedingten Trennstrichen in der von Ihnen angegebenen
Reihenfolge. Eine Leerfläche schließt eine beliebige Anzahl und
Kombination von normalen und geschützten Leerzeichen,
Tabstopzeichen und Absatzmarken ein.
Jetzt mein Makro:
Public Sub MAIN()
WordBasic.EditReplace Find:="^a" + Chr(34), Replace:="^a»", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="^t" + Chr(34), Replace:="^t»", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="^n" + Chr(34), Replace:="^n»", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="^z" + Chr(34), Replace:="^z»", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="(" + Chr(34), Replace:="(»", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" " + Chr(34), Replace:=" »", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=Chr(34), Replace:="«", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=""", Replace:="»", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="‚", Replace:="›", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=""", Replace:="«", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="'", Replace:="‹", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" -- ", Replace:=" - ", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" - ", Replace:=" - ", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" -- ", Replace:=" - ", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" -: ", Replace:=" -: ", Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
End Sub