Как поменять строки местами?

[ar.]

Есть две вы строки, расположенные не далеко друг от друга. Как поменять их местами, к примеру предварительно их выделив?

[madmot]

Как неоднократно советовали, сначала смоделировать свои действия в макрорекордере (Меню "Сервис" - "Макрос" - "Начать запись", задаем имя макроса и выбираем место где его сохранить, рекомендую выбрать "Документ", чтоб не засарять шаблон Normal.dot, в дальнейшем, после отладки макрос не трудно будет добавить и туда)

Вот что сделал макрорекордер:

Sub CP()
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend ' выделение до конца строки
    Selection.Cut 'вырезать
    Selection.MoveUp Unit:=wdLine, Count:=2 'переход на строки вверх
    Selection.PasteAndFormat (wdPasteDefault) 'вставить
End Sub

Теперь, подумаем, что нам надо для замены двух строк.
во-первых, надо пометить место окуда вырезаем первую строку, подойдет обычная закладка (посмотреть код добавления/удаления закладки можно так же в макрорекордере)
Вырезаем строку.
Далее, переходим к заменяемой строке. После вставки, переходим на строку ниже (Selection.MoveDown) т.к. текст сместился на строку вниз.
Вырезаем строку, возвращаемся на закладку, вставляем.

Примерно такой алгоритм.

Правда существут проблемма выделения двух строк. В режиме макрорекордера не работает выделение мышью, поэтому записать такие действия как: выделить строку и удерживая Ctrl выделить втроую строку.

Тут можно посоветовать использование InputBox, в нем предложить ввести число строк (+4 или -2) относительно первой из заменяемых строк, правда если строки располжены не далеко друг от друга...
Справку по использованию InputBox можно посмотреть в Help-e

В теме "Макрос, расширяющий функцию Find" прикреплен файлик с некоторыми функциями позиционирования в документе VBA.rar