Word VBA Макросы: Расширить выделение

[Anton]

Добрый день!
Подскажите пожалуйста, как с помощью макроса расширить область выделения на одну строку вверх или вниз, на один символ вправо или влево?

[Администратор]

Макросы

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

[свернуть]

[Anton]

Спасибо!

[Anton]

Что-то это строчка не так работает, как я думал - у меня она из выделения в нижней части убирает строку, а не прибавляет сверху.

Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend

[Администратор]

Я тестировал, у меня работает.