Schöner worden

Falls es noch Typographie- und Rechtschreib-Neurotiker da draußen geben sollte, die Microsofts Nachlässigkeiten händisch korrigieren möchten: Unten auf jeden Fall ein schlichtes Word-Makro, das ich vorhin geschrieben habe. Es wandelt (i) deutsche (halbe wie ganze) Anführungszeichen in Guillemets um, nimmt sich (ii) doppelter Abstände an und transformiert (iii) falsche Bindestriche in richtige Gedankenstriche. Alles automatisch und auf einen Klick, türlich. Dazu nach Bedarf beliebig pimpbar. In der Anwendung sieht das etwa so aus:

Makro

Den Code gibt’s nach dem Klick:

Sub Schönesformat()

Options.AutoFormatAsYouTypeReplaceQuotes = False
With Selection.Find
.Text = „^0132“
.Replacement.Text = „^0187“
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = „^0147“
.Replacement.Text = „^0171“
End With
Selection.Find.Execute Replace:=wdReplaceAll
Options.AutoFormatAsYouTypeReplaceQuotes = True

Options.AutoFormatAsYouTypeReplaceQuotes = False
With Selection.Find
.Text = „^0130“
.Replacement.Text = „^0155“
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = „^0145“
.Replacement.Text = „^0139“
End With
Selection.Find.Execute Replace:=wdReplaceAll
Options.AutoFormatAsYouTypeReplaceQuotes = True

With Selection.Find
.Text = “  „
.Replacement.Text = “ „
.Forward = True
.Wrap = wdFindAsk
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = “ – „
.Replacement.Text = “ ^0150 „
.Forward = True
.Wrap = wdFindAsk
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub