Sub SwapPreviousCharacters()
' Paul Beverley - Version 06.10.21
' Switches the two chars in front of the caret

Selection.Collapse wdCollapseStart
Selection.MoveStart , -2
txt = Selection.Text
Selection.Text = Right(txt, 1) & Left(txt, 1)
Selection.MoveStart , 2
End Sub