Word的宏怎样实现自动翻页
发布网友
发布时间：2022-04-22 15:46
共1个回答
热心网友
时间：2023-10-09 05:34
干吗不用PowerPoint呢，这多费劲呀
补充一：
用WORD来放的？给个链接我看看呢。
用PPT也能做字符动画呀，方便得多呀。
补充二：
这种的呀，这不是那么容易做的，网上流传很久了的。你自己录制宏吧，翻页的语句是Application.Browser.Next。
你录完后，加FOR...NEXT语句即可。
如果需要几毫秒翻一页稍微麻烦点了。
补充三：
可以的，我都试了。你一定要把光标放到文档开头。或者你试试这个：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Play()
Selection.HomeKey Unit:=wdStory
Pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To Pages - 1
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:=""
'Application.Browser.Next
Sleep (85) '间隔时间，安需要修改
Next i
End Sub
注意，因为间隔时间比较小，如果你的页数少的话会很快结束。你的页数多的话，会运行很久，因此你必须保证每页内容有变化才行，否则会出现WORD在翻页而你看不出来，还以为是死了。
