Question

need VBA code to swap two words written on left and right of the current cursor position in a word document file.

Answer 1

VBA code to swap two words written on left and right of the cursor position in a word document file. Here is the macro for it.

Sub swap()

Selection.MoveRight Unit :=wdWord, Count :=1; Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit :=wdWord, Count :=1

Selection.Paste

Selection.MoveLeft Unit :=wdWord, Count :=1; Extend:=wdExtend

Selection.Cut

Selection.MoveLeft  Unit :=wdWord, Count :=2

Selection.Paste

End Sub

Below are the keystrokes for the above macro:-

1. Ctrl+Shift+->

2.Ctrl+X (The first word is cut)

3. Ctrl+-> (The insertion pointer hops over the conjuction , and or or)

4. Ctrl+V (The word is pasted after the conjuction)

5. Ctrl + Shift + ->

6. Ctrl +X (The word after the conjuction (now after the first word you pasted in Step 4) is selected and cut)

7. Ctrl+<- , Ctrl +<- (The cursor moves back to just before the conjuction)

8. Ctrl +V (The second word is pasted)