Buchstabenverdreher korrigieren

Wer kennt sie nicht, diese sich einschleichenden Buchstabendreher. Mit Hilfe eines kleinen Makros, das man am besten auf ein Tastenkürzel legt, lassen sich diese Dreher bequem korrigieren. Um zwei Zeichen zu vertauschen, muss sich die Eingabemarke vor dem ersten zu tauschenden Zeichen befinden.

Das Makro macht nichts anderes, als die Markierung auf das rechts von der Eingabemarke befindliche Zeichen zu erweitern und diesen Bereich auszuschneiden. Anschließend wird die Eingabemarke um ein Zeichen nach rechts versetzt und das ausgeschnittene Zeichen wieder eingefügt.

Sub Zeichentauschen()  
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
    Selection.Cut
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Paste
End Sub