400-685-0732

WJMonitor舆情之声

企业大数据智能舆情监测管理解决方案

全网监测海量数据按需发布监测预警

实时把握舆情动态精准追溯信息源头

获取验证码
企业采购 个人使用
当前位置: 首页 > 办公 > word > Word实现自动翻页功能 Word中以VBA实现的自动翻页功能与文档结构图显示不同步

Word实现自动翻页功能 Word中以VBA实现的自动翻页功能与文档结构图显示不同步

时间:2018-09-11 16:50:09

Word实现自动翻页功能 Word中以VBA实现的自动翻页功能与文档结构图显示不同步,在我们日常处理文件的时候互经常用到word文档,像Word实现自动翻页功能这样的问题可能是我们经常遇到的问题,所以我们今天看完Word实现自动翻页功能 Word中以VBA实现的自动翻页功能与文档结构图显示不同步这篇文章或者会对你以后的工作提供很大的帮助,下面就来一起看看吧!

问题:我是VBA的初学者,手上有长Word文档需阅读,为强迫自己能够看完,欲实现自动翻页功能,用了以下两种方法:方法一

OptionExplicit Dim结束翻页AsBoolean DimSSSAsInteger Substop() 结束翻页=True EndSub Substart() SSS=Timer结束翻页=false Do If结束翻页=trueThenExitDo IfTimer>=SSS+5Then Application.Browser.Next SSS=TimerEndIf DoEvents Loop EndSub========方法二 OptionExplicit Dim结束翻页AsBoolean Substop() 结束翻页=True EndSub Substart() 结束翻页=False Application.OnTimeNow+TimeValue("00:00:05"),"do_it" EndSub Subdo_it() If结束翻页=FalseThen Application.Browser.Next start EndIf EndSub

两种方法均可实现翻页的功能,但第一种方法用起来太夸张,CPU总是100%;第二种方法比较理想,绝对的轻松。然而问题是,我的Word文档都设有九级目录,看书的时候习惯于将正文与文档结构图对照着看,以理清自己的思路。在快速速读的时候,这个功能就更有作用。第一种方法,随着自动翻页,文档结构图中的各级目录也会跟着跳转,书翻到哪里,目录的反蓝显示也就跳到哪里。第二种方法,却无法实现这个功能,目录的反蓝显示永远只在初始的位置。除非书自动翻页以后,在页面中用鼠标点一下,反蓝的目录才会跳转。这个问题我想是出在使用时间控件的时候,闪烁的光标的性质和正常的光标插入点的性质有点不一样,在翻页后用了插入“”的语句也不行。请各位前辈帮助解决文档结构图中目录反蓝显示随自动翻页跳转的问题。解答:可以试下:

OptionExplicit DimmyByteAsByte SubmyStart() IfSelection.Paragraphs(1).Range.IsEqual(ActiveDocument.Content.Paragraphs.Last.Range)=TrueThen myByte=100Else myByte=10EndIf Application.OnTimeNow+TimeValue("00:00:05"),"Do_it" Application.ScreenUpdating=FalseActiveDocument.ActiveWindow.DocumentMap=FalseActiveDocument.ActiveWindow.DocumentMap=TrueApplication.ScreenUpdating=TrueEndSub SubDo_it() IfmyByte=0Then Selection.HomeKeywdStory myStart ElseIfmyByte=10Then Selection.MoveDownUnit:=wdScreen,Count:=1myStart Else myByte=0EndIf EndSub SubmyStop() myByte=100EndSub

相信看完这篇文章大家对Word实现自动翻页功能 Word中以VBA实现的自动翻页功能与文档结构图显示不同步都有一个大致的了解了,也希望各位在以后的工作中能够顺利的解决这些问题并且能够提高工作效率,帮助大家解决更多的问题,以上就是Word实现自动翻页功能 Word中以VBA实现的自动翻页功能与文档结构图显示不同步的文章了,更多文章请关注优词网官网!

Word实现自动翻页功能 Word中以VBA实现的自动翻页功能与文档结构图显示不同步

分享按钮