Sub SwapCharacters()
' Paul Beverley - Version 06.10.21
' Switches characters either side of caret

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