文档结构图混乱_Word中以VBA实现的自动翻页功能与文档结构图显示不同步_word学习

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

Option Explicit  Dim 结束翻页 As Boolean  
Dim SSS As Integer   
Sub stop()      结束翻页 = True  
End Sub   
Sub start()    SSS = Timer 
  结束翻页 = false    Do  
    If 结束翻页=true Then Exit Do      If Timer >= SSS + 5 Then  
        Application.Browser.Next          SSS = Timer 
        End If          DoEvents  
  Loop  End Sub 
 ========方法二  
Option Explicit  Dim 结束翻页 As Boolean  
 Sub stop()  
    结束翻页 = True  End Sub  
 Sub start()  
  结束翻页 = False    Application.OnTime Now + TimeValue("00:00:05"), "do_it"  
End Sub   
Sub do_it()    If 结束翻页 = False Then  
  Application.Browser.Next    start  
  End If  End Sub 

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

解答：
可以试下：

Option Explicit  Dim myByte As Byte  
Sub myStart()      If Selection.Paragraphs(1).Range.IsEqual(ActiveDocument.Content.Paragraphs.Last.Range) = True Then  
        myByte = 100     Else  
        myByte = 10     End If  
    Application.OnTime Now + TimeValue("00:00:05"), "Do_it"      Application.ScreenUpdating = False 
    ActiveDocument.ActiveWindow.DocumentMap = False     ActiveDocument.ActiveWindow.DocumentMap = True 
    Application.ScreenUpdating = True End Sub  
Sub Do_it()      If myByte = 0 Then  
        Selection.HomeKey wdStory          myStart  
    ElseIf myByte = 10 Then          Selection.MoveDown Unit:=wdScreen, Count:=1 
        myStart      Else  
        myByte = 0     End If  
End Sub  Sub myStop()                  
1/212下一页尾页                                   


					
微信
					
分享