自动翻页的WORD宏代码怎么写？

Option ExplicitDim Mytime As Date 每隔5秒自动翻页Sub JumpPage()
Selection.GoToNext wdGoToPage
Mytime = Now + TimeValue("00:00:05")
Application.OnTime Mytime, "JumpPage"
If Selection.Information(wdActiveEndPageNumber) = Selection.Information(wdNumberOfPagesInDocument) Then
MsgBox "已到达最后一页，停止自动跳转功能"
Call StopJump
End If
End Sub 停止自动翻页Sub StopJump()
On Error Resume Next
Application.OnTime Mytime, ""
End Sub

Sub aa()
Selection.MoveDown Unit:=wdScreen, Count:=1
tim
End Sub
Sub tim()
Application.OnTime Now() + TimeValue("00:00:04"), "aa"
End Sub

WordBasic.AutoScroll 或者 Application.Browser.Next