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:
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