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

VBA代码停止正常工作

0 个答案: