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

问题：我是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()  
    myByte = 100 
End Sub 

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有