Word VBA无法捕获页面滚动事件，问题排查求助

问题根源 #

你使用的SelectionChange/WindowSelectionChange类事件仅在文本选区发生改变时触发——比如点击选中文本、拖动选中范围等操作。但单纯滚动页面（鼠标滚轮滚动、拖动滚动条但未选中任何文本）不会改变选区，因此这些事件无法捕获到滚动行为。

解决方案 #

根据你的Word版本，有两种可行方案：

方案1：使用Application.WindowScrolled事件（Word 2010及以上版本） #

这个事件是专门为窗口滚动设计的，能直接捕获滚动动作：

1. 打开VBA编辑器，插入一个类模块，命名为clsWordEvents
2. 在类模块中写入以下代码：

Public WithEvents appWord As Application

Private Sub appWord_WindowScrolled(ByVal Wn As Window)
    ' 获取当前活动页面
    Dim currentPage As Integer
    currentPage = Wn.ActivePane.View.Page
    
    MsgBox "滚动到了第 " & currentPage & " 页"
End Sub

3. 打开ThisDocument模块，写入初始化代码：

Dim wordEvents As clsWordEvents

Private Sub Document_Open()
    Set wordEvents = New clsWordEvents
    Set wordEvents.appWord = Application
End Sub

Private Sub Document_Close()
    Set wordEvents.appWord = Nothing
    Set wordEvents = Nothing
End Sub

方案2：计时器监控页面变化（兼容所有Word版本） #

如果你的Word版本低于2010，没有WindowScrolled事件，可以用计时器定期检查当前页面是否变化：
在ThisDocument模块中写入以下代码：

Dim previousPage As Integer
Dim scrollTimer As Double

Private Sub Document_Open()
    ' 记录初始页面
    previousPage = ActiveWindow.ActivePane.View.Page
    ' 设置每500毫秒检查一次（可根据需要调整间隔）
    scrollTimer = Now + TimeValue("00:00:00.5")
    Application.OnTime scrollTimer, "CheckPageChange"
End Sub

Private Sub Document_Close()
    ' 关闭文档时取消计时器
    On Error Resume Next
    Application.OnTime scrollTimer, "CheckPageChange", , False
    On Error GoTo 0
End Sub

Sub CheckPageChange()
    Dim currentPage As Integer
    currentPage = ActiveWindow.ActivePane.View.Page
    
    ' 对比当前页面与上一次记录的页面
    If currentPage <> previousPage Then
        MsgBox "滚动到了第 " & currentPage & " 页"
        previousPage = currentPage
    End If
    
    ' 重新设置计时器
    scrollTimer = Now + TimeValue("00:00:00.5")
    Application.OnTime scrollTimer, "CheckPageChange"
End Sub

注意事项 #

• 方案1中，WindowScrolled事件会在每次滚动时触发，即使滚动后页面没有变化（比如在页面内滚动），如果需要仅在页面切换时触发，可以在事件内加入页面对比逻辑，类似方案2的写法。
• 方案2的计时器间隔可以调整，间隔越小响应越及时，但会占用更多系统资源。

内容的提问来源于stack exchange，提问作者Yiftach Cohen