Поменять слова рядом друг с другом в Word?

Не уверен, что понимаю ваш вопрос, но вы можете использовать поиск и замену, как это:

1. заменить первое слово чем-то случайным
2. заменить второе слово с первым словом
3. заменить случайное слово вторым словом

Если вы хотите, чтобы какой-то VBA поменял местами два соседних слова, это сделает это:

Sub SwapWords()
    'Clear Selection
    Selection.SetRange Start:=Selection.Start, End:=Selection.Start
    'Expand Selection to word under cursor
    Selection.Expand
    'Cut word
    Selection.Cut
    'Move one word right
    Selection.MoveRight Unit:=wdWord
    'Paste word
    Selection.Paste
End Sub

случайные слова не нужны, если у вас есть два точных слова, разделенных одним пробелом (или некоторым подобным согласованным макетом)

используйте Find и replace для поиска word1 word2 и заменить на word2 word1

Я открыла для себя, проще всего это сделать в Excel:

1. откройте книгу Excel и вставьте данные, которые необходимо "поменять местами" в электронную таблицу.
2. во-первых, убедитесь, что у вас есть пустой столбец рядом с тем, где произойдет разделение, поэтому вставьте столбцы по мере необходимости.
3. выделите столбец, который требуется разделить.
4. на вкладке группа данных выберите текст в Столбцы, "мастер преобразования текста в Столбцы" будет открывать.
5. Excel определит Исходный Тип Данных для вас (если каждый набор данных имеет одинаковое количество символов, исправлены будут выбраны. Если нет, разделителями будут.) Нажмите кнопку Далее
6. Если настоящее данных, разделенных разделители listed (обычно пробел), Выберите это и нажмите next.
7. выберите тип Формат Данных Столбца (текст, номер, etc.), нажать кнопку Finish.
8. он может спросить вас, если вы хотите заменить содержимое ячейки назначения-нажмите кнопку "ok"

Если вы не хотите, чтобы оставить его в электронную таблицу Excel можно скопировать и вставить (либо в виде текста или таблицы) в документ Word.