vba - Word 2013 将插入点移动到单词的末尾

Question

在 Word 2013 中是否有一种简单的直接方法可以将插入点移动到单词的末尾？单词的结尾，我的意思是单词的最后一个字符在插入点的左边，尾随空格或标点在右边，没有选择任何内容。我确信 Word 2002 能够在没有宏的情况下做到这一点。我创建了以下宏来执行此操作，但我确信必须有一个内置的方法来执行此操作，或者至少可以使宏更简单。

Sub MoveCursorEndWord()
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1

If Selection.Text <> " " Then
Selection.MoveRight Unit:=wdCharacter, Count:=1
End If

End Sub

Answer 1

实际上，我提出的程序与您的程序并没有太大的不同。

Sub EndOfWord()

    Dim Rng As Range

    With Selection
        .Words(1).Select
        .Collapse wdCollapseEnd
        Do While .Start
            Set Rng = .Range
            Rng.MoveStart wdCharacter, -1
            If Asc(Rng.Text) = 32 Then
                .Move wdCharacter, -1
            Else
                Exit Do
            End If
        Loop
    End With
End Sub

问题是 Word 坚持在其“单词”概念中包含尾随空格。由于您似乎遵循不同的定义，因此存在自然冲突。