Задача на строки

[Альберт05]

Поменять слова в сообщении по принципу: первое со вторым, третье с четвертым и так далее

[Sasha_Smirnov]

Я со словами работаю в программе Word (Word записывает действия).

В частности, для вашей задачи код следующий:

Sub Макрос2()

    With Selection.Find
        .Text = "(<*>)(*)(<*>)"
        .Replacement.Text = "\3\2\1"
        .MatchWildcards = True
    End With

    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Тут фишка в том, что Word сам определяет границы слов.

Однако слова типа кое-что этот код не переварит: он выдаст что-кое*! И главное, ему не мешают знаки препинания!

Код пригоден для одного абзаца. Иначе он меняет нечётное слово n-го абзаца и 1-е (n+1)-го.
_______________
*если кое нечётное «слово»