vba - 需要在 MS Word 中捕获当前滚动位置(不是光标位置)

Question

我需要在 Word 文档中获取当前滚动位置(我认为这是正确的术语；即我的虚拟镜头指向文档的位置，而不是我的光标所在的位置)，以便在我运行宏时最后我可以回到那个位置。

我编写了一个宏，从当前光标位置向后搜索专利申请零件号，确定候选的下一个可用零件号为前一个最大值 + 1，然后搜索出现在光标下方的数字排序列表，看看是否候选零件编号与下一个使用的编号发生冲突，如果发生冲突，则将候选零件编号加 1 并再次检查是否发生碰撞，直到找到最小的未使用整数，以尽可能遵循在正文中引入零件的约定按零件号顺序描述的。

然后它将那个数字插入到当前光标位置。它工作正常；但是，它会将当前行移动到查看窗口的顶部，这会让人迷失方向。我宁愿把卷轴留在原处。这是我的代码:

Sub InsertLocalNextPartNum()

Application.ScreenUpdating = False

Dim re As VBScript_RegExp_55.RegExp
Set re = New VBScript_RegExp_55.RegExp


re.pattern = "\b(\d{2,3}\b)"

' 2-3 位数字对于零件号来说有点过于包容，但出于我的问题的目的，我们不需要完整的正则表达式

re.IgnoreCase = False
re.Global = True

Dim txt As String
Dim allLongMatches As MatchCollection, m As Match
Dim nums() As Long
Dim numsColl As New Collection
Dim maxNum As Long
maxNum = 0
Dim nextPartNum As String
Dim localNextPartNum As String
localNextPartNum = 0
Dim i As Long
Dim j As Long
Dim k As Long


Selection.HomeKey Unit:=wdStory, Extend:=wdExtend

txt = Selection.Range.text

If re.Test(txt) Then
        Set allLongMatches = re.Execute(txt)
         For Each m In allLongMatches

         numsColl.Add (m.Value)

         Next m
End If
ReDim nums(1 To numsColl.Count)

For i = 1 To numsColl.Count
    nums(i) = numsColl(i)
    If nums(i) > maxNum Then maxNum = nums(i)
Next i

localNextPartNum = maxNum + 1


Selection.MoveRight
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
txt = Selection.text

If re.Test(txt) Then
        Set allLongMatches = re.Execute(txt)
        For Each m In allLongMatches
         numsColl.Add (m.Value)
        Next m
End If

ReDim nums(1 To numsColl.Count)
Dim numTemp As String
Dim lngMin As Long
Dim lngMax As Long
lngMin = LBound(nums())
lngMax = UBound(nums())

For i = 1 To numsColl.Count
    nums(i) = numsColl(i)
Next i

For j = lngMin To lngMax - 1
    For k = j + 1 To lngMax
      If nums(j) > nums(k) Then
        numTemp = nums(j)
        nums(j) = nums(k)
        nums(k) = numTemp
      End If
    Next k
Next j

For i = 1 To numsColl.Count
    If localNextPartNum < nums(i) Then Exit For
   ' Debug.Print nums(i)
    If localNextPartNum = nums(i) Then localNextPartNum = nums(i) + 1
Next i
Selection.MoveLeft
Selection.InsertAfter (localNextPartNum & " ")
Selection.MoveRight

End Sub

Answer 1

要捕获窗口滚动位置，请使用:

scrollPosition = ActiveWindow.ActivePane.VerticalPercentScrolled

将其设置回原来的用途:

ActiveWindow.ActivePane.VerticalPercentScrolled = scrollPosition