Application.Browser.Target = wdBrowsePage
Application.Browser.Next
Selection.MoveDown Unit:=wdLine, Count:=10

вообще можно делать просто:
запускаешь режим записи макроса
делаешь то, что нужно, затем останавливаешь запись
и смотришь код его - это и есть код VBA
(таки макаром вышеприведенный код получен)