Transposing Words

It is not uncommon, when editing a document, to transpose two adjacent words. For instance, you may want the text "often used" to be "used often" instead. Word has no native capability to transpose two words, but you can create a macro that will do the transposition for you. The following WordBasic macro, called Transpose, can be used in Word 6 and Word 95.

Sub MAIN
CharLeft 1, 1
Space$ = ""
If Selection$() = " " Then
   Space$ = " "
   EditClear
End If
WordLeft 1, 1
EditCut
WordRight 1
CharLeft 1, 1
If Selection$() = " " Then
   CharLeft 1
Else
   CharRight 1
EndIf
If Space$ = " " Then Insert Space$
EditPaste
End Sub

To use the macro, all you need to do is position the insertion point between the two words you want to transpose, and then run the macro.