vba - VBA代码停止正常工作

Question

几天前，我制作了一个小型 VBA 程序，使用快速访问工具栏上的指定按钮以及指定的键盘快捷键运行良好。然而，今天早些时候，它开始出现异常行为。当我在调试模式下运行它时，所有行都按预期执行，但是当我通过分配的按钮或键盘快捷键运行它时，代码似乎被无限卡住了。我真的不知道出了什么问题。

下面是我的 VBA 代码：

Sub GetLengthOfSelection()

Dim Rng As Range

Set Rng = Selection.Range

On Error Resume Next

LenFinder:
If Len(Rng) >= 43 Then
    GoTo Trimmer
Else
    Set Rng = Selection.Range
    MsgBox Rng, vbInformation
    Rng.Copy
    q = Rng.Words.Count
    Set Rng = Rng.Words(q)
    Rng.MoveStart Unit:=wdWord, Count:=1
    Rng.MoveEndUntil CSET:=Chr(13), Count:=wdForward

    If Len(Rng) >= 43 Then
        GoTo Trimmer
    End If

    MsgBox Rng, vbInformation, "Text after new range definition"
    Rng.Copy
    Exit Sub
End If

Trimmer:
Rng.MoveEnd wdWord, -1
Rng.Select
Set Rng = Selection.Range
GoTo LenFinder

End Sub

标签： vbams-word