Добрый день!
Подскажите пожалуйста, как с помощью макроса расширить область выделения на одну строку вверх или вниз, на один символ вправо или влево?
Макросы
Sub macro1()
' Включение в выделение вышестоящией строки.
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
End Sub
Sub macro2()
' Включение в выделение нижестоящией строки.
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
End Sub
Sub macro3()
' Включение в выделение левого символа.
Selection.MoveStart Unit:=wdCharacter, Count:=-1
End Sub
Sub macro4()
' Включение в выделение правого символа.
Selection.MoveEnd Unit:=wdCharacter, Count:=1
End Sub
Спасибо!
Что-то это строчка не так работает, как я думал - у меня она из выделения в нижней части убирает строку, а не прибавляет сверху.
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Я тестировал, у меня работает.