I need VBA for word to exchange the places of pairs of words

Question

I have a task to take pairs of words in .doc document and change there places with each other using VBA for example: one two three four --> two one