泊祎电脑网 Word实现自动翻页成果Word中以VBA实现的自动翻页成果与文档布局图显示差异步,在泊祎电脑回收网小编们日常处理惩罚文件的时候互常常用到word文档，像Word实现自动翻页成果这样的问题大概是泊祎电脑回收网小编们常常碰着的问题，所以泊祎电脑回收网小编们本日看完Word实现自动翻页成果Word中以VBA实现的自动翻页成果与文档布局图显示差异步这篇文章可能会对你今后的事情提供很大的辅佐，下面就来一起看看吧！
问题：泊祎电脑回收网小编是VBA的初学者,手上有长Word文档需阅读，为强迫本身可以或许看完，欲实现自动翻页成果，用了以下两种要领：要领一
OptionExplicitDim竣事翻页AsBooleanDimSSSAsIntegerSubstop()竣事翻页=TrueEndSubSubstart()SSS=Timer竣事翻页=falseDoIf竣事翻页=trueThenExitDoIfTimer>=SSS+5ThenApplication.Browser.NextSSS=TimerEndIfDoEventsLoopEndSub========要领二OptionExplicitDim竣事翻页AsBooleanSubstop()竣事翻页=TrueEndSubSubstart()竣事翻页=FalseApplication.OnTimeNow+TimeValue("00:00:05"),"do_it"EndSubSubdo_it()If竣事翻页=FalseThenApplication.Browser.NextstartEndIfEndSub
两种要领均可实现翻页的成果，但第一种要领用起来太浮夸，CPU老是100%；第二种要领较量抱负，绝对的轻松。然而问题是，泊祎电脑回收网小编的Word文档都设有九级目次，看书的时候习惯于将正文与文档布局图比较着看，以理清本身的思路。在快速速读的时候，这个成果就更有浸染。第一种要领，跟着自动翻页，文档布局图中的各级目次也会随着跳转，书翻到那边，目次的反蓝显示也就跳到那边。第二种要领，却无法实现这个成果，目次的反蓝显示永远只在初始的位置。除非书自动翻页今后，在页面顶用鼠标点一下，反蓝的目次才会跳转。这个问题泊祎电脑回收网小编想是出在利用时间控件的时候，闪烁的光标的性质和正常的光标插入点的性质有点纷歧样，在翻页后用了插入“”的语句也不可。请列位前辈辅佐办理文档布局图中目次反蓝显示随自动翻页跳转的问题。解答：可以试下：
OptionExplicitDimmyByteAsByteSubmyStart()IfSelection.Paragraphs(1).Range.IsEqual(ActiveDocument.Content.Paragraphs.Last.Range)=TrueThenmyByte=100ElsemyByte=10EndIfApplication.OnTimeNow+TimeValue("00:00:05"),"Do_it"Application.ScreenUpdating=FalseActiveDocument.ActiveWindow.DocumentMap=FalseActiveDocument.ActiveWindow.DocumentMap=TrueApplication.ScreenUpdating=TrueEndSubSubDo_it()IfmyByte=0ThenSelection.HomeKeywdStorymyStartElseIfmyByte=10ThenSelection.MoveDownUnit:=wdScreen,Count:=1myStartElsemyByte=0EndIfEndSubSubmyStop()myByte=100EndSub
相信看完这篇文章各人对Word实现自动翻页成果Word中以VBA实现的自动翻页成果与文档布局图显示差异步都有一个大抵的相识了，也但愿列位在今后的事情中可以或许顺利的办理这些问题而且可以或许提高事情效率，辅佐各人办理更多的问题，以上就是Word实现自动翻页成果Word中以VBA实现的自动翻页成果与文档布局图显示差异步的文章了，更多文章请泊祎电脑回收网！
