Word VBA宏：避免选中内容移出屏幕时视图跳转

方案：保存并恢复当前视图位置 #

Word的Selection操作即便关闭屏幕更新，最终仍会将视图定位到选中区域的起始位置。核心解决思路是先记录当前窗口的垂直滚动位置，完成选中操作后再将视图恢复到原位置。

修改后的代码如下：

Sub SelectParagraphsBackward()
    Dim NumParagraphs As Integer
    NumParagraphs = 10 ' 修改此数字为需要向后选中的段落数
    
    Dim i As Integer
    Dim originalScrollPos As Long
    
    ' 记录当前窗口的垂直滚动位置
    originalScrollPos = ActiveWindow.VerticalPercentScrolled
    
    Application.ScreenUpdating = False
    
    For i = 1 To NumParagraphs
        Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Next i
    
    ' 恢复原来的视图滚动位置
    ActiveWindow.VerticalPercentScrolled = originalScrollPos
    
    Application.ScreenUpdating = True
End Sub

更高效的写法：直接用Range对象构建选中区域 #

避免循环移动Selection，直接通过Range对象定位到目标段落范围，再将Selection设置为该Range，同时配合视图位置恢复：

Sub SelectParagraphsBackward()
    Dim NumParagraphs As Integer
    NumParagraphs = 10
    Dim originalScrollPos As Long
    Dim targetRange As Range
    
    originalScrollPos = ActiveWindow.VerticalPercentScrolled
    Application.ScreenUpdating = False
    
    ' 从当前光标位置向上构建包含指定段落数的Range
    Set targetRange = Selection.Range
    targetRange.MoveStart Unit:=wdParagraph, Count:=-NumParagraphs
    ' 将Selection设置为目标Range
    targetRange.Select
    
    ' 恢复视图位置
    ActiveWindow.VerticalPercentScrolled = originalScrollPos
    
    Application.ScreenUpdating = True
End Sub

说明 #

• VerticalPercentScrolled记录窗口垂直滚动的百分比，能精准恢复原视图位置。
• 使用Range对象直接构建选中范围，比循环移动Selection更高效，减少视图触发的潜在问题。

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