Sub SwapWords()
' Paul Beverley - Version 14.03.23
' Swaps adjacent words

' Turn off "smart" (ha!) cut and paste
mySmart = Options.SmartCutPaste
Options.SmartCutPaste = False

Selection.Expand wdWord
Selection.Cut
Selection.MoveRight wdWord, 1
Selection.MoveStart , -1
ch = Asc(Selection)
Selection.Collapse wdCollapseEnd
If ch = 32 Then
  Selection.Paste
Else
  Selection.TypeText Text:=" "
  Selection.Paste
  ch = Right(Selection, 1)
  Selection.MoveStart , -1
  Selection.Delete
End If
' turn it back on if the user wants it
Options.SmartCutPaste = mySmart
End Sub